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The microbee 
Computer-in-a-Book | 
represents a novel, practical 
effective low cost way of 
advancing to disk drive capab 


The microbee 3.5 inch 400K high speed/high density Drives are 
very compact, extremely tough and represent the best value-for- 
money “Real Disk Drive’ on the market today. The Computer-in- 
a-Book comes complete with all the software you will need to get 
started including demo program, MW Basic, Wordbee 
Wordprocessing, Telcom communications and CP/M with utilities. 


Microbee 64K with Single Disk Drive $998 incl. Tax 
Add-on Disk Drive in matching volume $345 incl. Tax 
Ask about Modems, Printers and Business Software. 


microbee technology centres 


N.S.W. S.A. 

1 Pattison Ave, Waitara 2077 151 Unley Rd, Unley 5061, 

Phone (02) 487 2711 Phone (08) 272 1384 

VIC. QLD 

: 729 Glenferrie Rd, Hawthorn 3122 455 Logan Rd, Stones Corner, 4120 

Com uter ri eet da Phone (03) 819 5288 Phone (07) 394 3688 
s y 
Applied Technology W.A. FACTORY 


= 141 Stirling Highway, Nedlands Koala Crescent, West Gosford 2250 
PHONE ORDERS @@ikes ACCEPTED Phone (09) 386 8289 Phone (043) 24 2711 
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PRICELESS PROGRAMS 


LEDGERMASTER %& 


To start our 32-page section of bumper-to- 
bumper pocket programs, we've purchased 
the rights to print details of this commercial 
ackage written by Lindsay Ford. It'll take a 
bit of typing ... 


WITH TAXATION time almost here again, many readers will be faced with 
the daunting prospect of having to shuffle through bundles of old receipts 
and cheque butts to put together their tax returns. This problem is a 
particular burden to people like me, who run small businesses that don’t 
make enough to justify paying the fees of a good tax accountant. Club 
treasurers facing the task of preparing their annual reports will also know 
just what I mean! | 

One solution is to invest in a software accounts package, but these are 
generally disk-based, expensive to buy and more sophisticated than most 
of us need. LedgerMaster was written to overcome these problems. It is a 
financial database program designed to run on 32 Kbyte (or larger) 
Microbee computers and has all the features you're likely to need to 
prepare a profit and loss statement for taxation purposes or for 
publication in your club magazine. It allows you to create a ledger 
containing up to 320 transaction records (‘files’), which can be stored on 
tape, printed, sorted and searched as with any general database. 

Where LedgerMaster stands out, however, is it also conducts a balance 
of the ledger files (and of any other ledgers you have ‘chained’ to it) and 


compiles these into a proper profit and loss statement. This takes almost 


the effort out of preparing tax returns or treasurers’ reports, whether 
,vu re typing in the receipts and payments in one frenzied, last-minute 
burst or simply tallying a ledger you've created through the year as 
transactions occurred. 


Program Entry 
The program is really a compromise between efficient code and legibility. 
Ideally, a BASIC program needs as many instructions as possible 
crammed into each line, if maximum speed and economic memory use 
are to be achieved, but this would have made LedgerMaster extremely 
difficult to read. I've opted for slightly less-than-optimum line lengths, but 
even so the size of the program means you have to be extremely careful as 
you type it in. Please bear the following points in mind: 
@ Use AUTO mode to enter the program, as this minimises the risk of 
‘non-printing characters’ being accidentally included in the code. If you 
have my BASIC Screen Editor fitted to your Bee, use it. This will avoid the 
problem entirely. 
@ REMs that appear in a line of code (for example in line 1) should be left 
out entirely. 
@ Where a line contains a REM but no BASIC code (for example lines 19 
and 20), the REM should be entered, but any text following it omitted. 
@ The up-arrow character (7) appears frequently in the program. Don't 
leave it out. | 
@ Watch out for variables I, O and QO. These are easy to confuse with ones 
and zeros. 

Once the program has been entered exactly as shown in the listing 


BY LINDSAY R. FORD 
Dreamcards Software 


(subject to the above comments), use the GX command to locate all lines 
containing REMs. These lines should be deleted (using the DELETE 
command) and several copies of the program should then be stored on 
tape. 

At this stage you have an almost complete program. Now type in the 
following (in ‘direct mode’ — don’t give it a line number): 


CLS: X=0: Y=PEEK(2258) + 256*PEEK(2259): FOR Z=2304 TO Y. 


X=X+PEEK(Z): NEXT Z: PRINT “X="; X, “Y="; Y: END 


When you press the <RETURN> key the screen will clear, and after a 
few minutes two numbers will appear. ‘Y’ is the address in decimal of the 
top of the BASIC file and should be 11819. If it’s higher than this you've put 
something in the program that shouldn't be there, if lower you've left 
something out. ‘X’ is a checksum — it is the total of the numbers 
contained in each of the memory bytes making up the program. If it is - 
16146 then all is well and you can proceed to the next stage; otherwise 
you'll have to look for your typing error. 

Stage 2 of the operation involves removal of unnecessary spaces in the 
listing, as these greatly reduce execution speed. Enter “GX///’<Return> 
and rest a brick on the full-stop key, then go and make yourself a cup of 
coffee. After about five minutes all spaces will have been removed. Now 
you'll have to insert spaces in the places they're meant to be by 
substituting a space for each up-arrow. Use “GX/f//'to do this. Once 
done you should save a few copies on tape, then enter the test routine 
shown above. This time Y should be 10079 and X, 17639. If they are you've 
got a fully operational LedgerMaster. 


Using the Program 

When you RUN LedgerMaster there will be a brief delay as the main arrays 
are initialised, then a menu will appear giving you the option to ‘Create 
Base’ or ‘Load’. You will also see two numbers at the bottom right of the 
screen. The first of these is the free memory counter, which tells you how 
much room remains in the ledger (you can’t run out of file space on a 32 
Kbyte machine), and the second is the number of free files available. As 
the ledger hasn't been initialised this second number will be zero. You 
won't have a ledger tape you can load at this stage, so let’s look at the first 
option. 


Create Base 

This routine initialises the ledger, clearing out any existing material in 
memory. For this reason you will be asked if you are ‘Sure?’ if you access it 
when a ledger is already present. You will then be requested to name the 
ledger (maximum 24 characters), then to input the various categories of 
payments and receipts you want included on the final balance sheet (such 
as ‘insurance’, ‘rent’, ‘royalties’, ‘wages’ and so on). Give these a good deal 
of thought before starting, as they comprise the framework around which 
your financial report or tax return will be built. 

You can enter up to 20 classes of payments and 20 of receipts 
(maximum 12 characters), and a ‘carried forward’ balance for each. This 
balance will be of importance if you are including amounts accrued froma 
previous period, such as debts outstanding from the last tax year. No 
‘carried forward’ balance will be entered if you press the <Return> key. 
Pressing <Return> when you're prompted to input a payment or receipt 
category indicates you've finished entering items in that class. 

Once the payments and receipts categories are entered your ledger 
‘base’ is complete and the program will return to the menu. You will now 
have four options available — ‘Create’, ‘Load’, ‘Enter’ and ‘Save’. If you 
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Microbee 47 


want to go on and input a couple of files, the first option to look at is 
‘Enter’. 


Enter 

Pressing key 3 clears the menu from the screen and the prompt at bottom 
left asks you to input the ‘day’ part of the date of the particular file. By now 
you'll have noticed the program uses a non-standard input routine, the 
length of the particular field being indicated by a row of star (*) characters 
next to the prompt. As each character is typed it replaces one of the stars, 
the entry being complete either when the <RETURN> key is pressed or 
when the last character in that field is typed. 

With date entries the data field is two characters wide, so a date 
comprising one digit (for example the ‘I’ in 1/12/84) can be entered either 
as ‘| <RETURN>’ or as ‘01’. Once the day is entered you will be prompted 
for the month and then the year. To avoid unnecessary typing, the 
program allows you to ‘borrow’ date data from the last file you typed. 
Thus, if the date on the last record was ‘14/3/84’ and you press the 
<RETURN> key in answer to the ‘day’ prompt in the next record, it will be 
assigned the date ‘14/3/84’ as well. This can also be used with parts of 
dates, so if you input ‘28’ for the day, then press <RETURN> when 
prompted to input the month, the date will be entered as ‘28/3/84’. 

An error check routine is incorporated to detect illegal dates (including 
February 29 on non-leap years). Note, as each field is entered the partially 
complete file is displayed at the top of the display window. 

After the date is entered you are asked to enter ‘From/To’. This identifies 
from whom the money was received or to whom it was paid (maximum 16 
characters). Pressing the <RETURN> key will enter the word ‘Paid’ in this 
field. The next item requested is the receipt or invoice number (maximum 
seven characters), which can be omitted by pressing the <RETURN> key, 
and the word ‘B/card’ inserted by pressing f B (that is, the <CONTROL> 
and ‘B’ keys simultaneously) or the word ‘Cash’ by pressing f C. 

The next two steps deal with the category into which the item will be 
inserted in the oalance sheet. The first asks you if it is a receipt or payment 
(press ‘R’ or ‘P’), then all categories included in the ledger base will appear 
in the display window, with letters to identify them. Press the key 
corresponding to the particular category into which the payment falls. If 
you press a key that doesn’t correspond to one of the displayed categories 
it will be ignored. 

The final item to enter is the amount of money involved. Although this 
field is nine characters wide, two spaces are reserved for cents and one for 
the decimal place. (If you're dealing with amounts of a million dollars or 
more you can afford to get an accountant to do it for you!) There’s no need 
to input trailing zeros in the cents part, so ‘100 dollars’ can be entered as 
‘100 <RETURN>’ and ‘87 dollars 30 cents’ as ‘87.3 <RETURN>’. 
Payments and receipts appear in separate right-justified columns in the 
display window: payments to the right and receipts to the left. 

This completes your file entry and you will now be asked whether you 
wish to proceed to enter the next file (press <RETURN>), to return to the 
menu (key ‘M’) or to ‘re-do’ (correct) the record you just typed (key ‘R’). The 
program will not allow you to exceed the ledger capacity, so once the 
320th file is typed it will return to the menu and announce ‘Ledger Full’. 


Save 

This option allows you to save all or part of your ledger on tape. Pressing 
key 4 will take you into the ‘SAVE’ routine and you'll then be asked 
whether you want to save the base (key 1), the files (key 2) or the whole 
ledger (key 3). Pressing any other key aborts the routine, returning you to 
the menu. 

In the majority of cases you will want to save the whole ledger on tape 
(key 3), but the base and file save facilities can be useful if you want to 
save only the files and incorporate a new base in the ledger with the ‘Load’ 
routine ‘Merge’ facility, or if you want to use the ‘New Base’ facility to 
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‘Chain’ a number of ledgers together (see below). Whatever option you 
choose, the program recognises the importance of your ledger files and 
saves two copies — just in case a fault in the tape causes a loading 
problem. The message ‘Start Tape’ will appear on the screen, followed by 
a short delay (to allow the tape leader to go past the record head), then 
the computer will announce it is saving ‘Copy I’, ‘Copy 2’, then return to 
the menu. 

The ledger ‘header’ (the important ledger information) is saved at 300 
baud, then the base and files are saved at 1200 baud. This is not a job for 
bargain-basement tapes. | use TDK 120 us bias cassettes — anything less 
is just begging for an unloadable file that you'll have to type all over ag 
Database ‘Save’ routines tend to bring out the worst in Microbee casst..- 
interfaces; readers whose Bees are 32 Kbyte IC models or earlier should 
consider making the tape I/O modifications suggested in the Microbee 
Hacker's Handbook (available through Your Computer), and those with the 
Telcom v1.0 or 1.1 communications ROM ought to either update to a later 
version or have the permanent RTC link disconnected. Otherwise, loading 
at 1200 baud becomes a game of chance! 


Load 
The load facility is designed for maximum flexibility in manipulating your 
ledgers. Not only can you load a full ledger (key 3) or a base or files alone 
(keys 1 or 2), but if there is already a ledger in memory and you choose to 
load only the files or base of your tape ledger, that section will replace the 
corresponding section of the ledger already in memory. This allows you to 
create a new base if the old one was deficient (such as if you decide an 
extra category ought to have been included in the payments section). 
A ‘Merge’ facility (key 4) is also included, allowing you to add the files in 
your tape ledger to the end of the ledger (if any) already in memory. If this 
exceeds the ledger capacity (320 files), the computer announces “Merge - 
Part only”, and you'll have to use the ‘Display’ function to check how many 
of the tape files were loaded before the ledger reached its capacity. 
Once you've selected the load option you want to use, the program 
requests you to ‘Start Tape’, and this message remains on the screen until 
a valid tape header is encountered. At this stage the file title will be 
displayed with some additional information (such as whether the t: 
consists of a base or files only or whether the files are unsorted — 
below). If the tape file is incompatible with your load command (such as if 
you commanded the computer to load a base and the tape dump is files 
only), the routine will abort leaving any existing ledger intact. Please note, 
limits on program length meant that no load indicator or error checking 
could be included, so if your ledger hasn't loaded after about two minutes 
then press <RESET> and try again. 


Sort 
This routine arranges the files in your ledger in chronological order 
according to the file dates. As LedgerMaster is written in BASIC the Sort 
routine is quite slow (about five minutes to sort 320 files), so you will be 
asked whether you are ‘Sure?’. Press key ‘N’ to abort or key ‘Y’ to continue. 
Your files don’t have to be sorted before they're saved on tape or 
printed, but your final printout will be much easier to follow if a sort is first 
carried out. A counter will appear on the screen as the routine is in 
progress (just to reassure you your computer hasn't died of a stroke!). 


Delete | 

This function is useful if you want to get rid of an incorrectly typed file ora 
slab of files in a ledger that has been partly ‘merged’ with an earlier ledger. 
Enter the number of the first file to be deleted and the file will appear in 
the display window. Now press key ‘N’ if you've picked the wrong one or 
key ‘Y’ if it’s correct. You'll then be asked for the number of the last file to 
be deleted. If only one file is to be deleted, press the <RETURN> key, 
otherwise enter the appropriate file number and check that the file that 


~ PRICELESS PROGRAMS 


LedgerMaster 


00001 POKE 140,1 REM Disable <BREAK> Key 

00002 GOSUB 333 REM Initialise Storage arrays 

00003 IN#0: OUT#0 REM VDU On 

00004 N=8: IF BO$(0)="" THEN LET N=2 ELSE IF C=1 THEN LET N=4 
00005 KO$=KEY$: K4$="": I=0: Q=0: IF C<3 AND N=8 THEN LET N=5 
00006 GOSUB 298: INVERSE: CURS 28,4: PRINT ""“MENU”": NORMAL 
00007 PRINT \ SPC(14) "“Create”..... i Waa 


appears on the display window is the last one in the section you want to 
erase. Both files that appeared on the screen will be deleted, along with all 
files in between. Invalid file numbers will be rejected. 


Print 


This is a powerful function with a range of options. You'll first be asked ae Bett ne eee sone ee N=2 THEN 16 
whether you want to search for any particular string, allowing you to pOGIO: BRINTSCEC(AY “Gace> ae TRILaREN Ta 
search through the date, item, receipt number and/or money columns of 00011 PRINT SPC(14) “Delete~.....7~5";: IF N=5 THEN 16 
the ledger for all occurrences of a particular set of characters. So if you Beet Pere ee 

entered ‘B/card <RETURN>’ in response to the ‘Search’ prompt, the only 00014 PRINT SPC(4) "New*Base~...78" _ 


00015 IF C=V+1 THEN PRINT \ SPC(21) "***° LEDGER” FULL’ ***" 
00016 K2$="Select”Menu Option": GOSUB 226 

00017 X=INT(VAL(KO$)): IF X=Q OR X>N THEN 16 

00018 PLAY 22,1: ON X GOTO 65,33,83,120,138,22,150,216 


igers printed would be those containing this expression. 

If you're searching the money column for all entries of a particular 
amount, please remember trailing zeros in the cents column are omitted. 
A hash mark (#) followed by a file number entered in response to the 
search request will cause printing to commence at that file number. To 
print all files in the ledger simply press the <RETURN> key. 

The program will now ask whether you want the printout directed to the 
screen or to a printer (keys ‘S’ or ‘P’). If you select the printer option a sub- 
menu will appear, asking you to select the printer type (press an invalid 
key if you chose the printer option by mistake). Once you've made your 
selection you'll be asked to press a key to continue. Check your paper is 
properly aligned in the printer, press a key and away it will go. 
~ The ledger printout consists of three sections (see Figure |). First are 
the categories ‘carried forward’ (if any), followed by the ledgers them- 
selves and finally the balance sheet. Base categories with anil balance are 
omitted. If the ‘search’ mode is used then only the ledgers are printed, as 
otherwise the balance sheet totals would be misleading. 

When printing on the screen the ledger categories are shown simply by 
their code letter (to accommodate the 64-character-width screen), but 
these are printed in full if a printer is used. The printer format also 
includes a page heading showing the ledger name, column headings, 
page number and (if the ledger has been sorted) the dates it covers. 


00020 REM ------------------ Sort Routine ------------------- 
00021 REM 

00022 GOSUB 232: IF K1$="N" OR S=1 THEN 3 

00023 X=0: GOSUB 317 REM Set-up Date array 

00024 FOR X=1 TO C-1: GOSUB 292: Al(X)=F4: NEXT X 

00025 FOR X=1 TO C-2: GOSUB 317: FOR M=X+1 TO C-1 REM Sort 
00026 IF A1(M)=>A1(X) THEN 29 

00027 KO$=A0$(M): AO$(M)=A0$(X): AO$(X)=KOS$ 

00028 F1=A1(M): A1(M)=A1(X): A1(X)=F1 

00029 NEXT M: NEXT X: S=1: GOTO 79 


0003). REM: pees e seen Saher "Load ‘Routine: =-<=<as--seece- Se 


00033 N=3: IF C>1 AND C<V+1 THEN LET N=4 

00034 GOSUB 324: IF O=0 THEN 3 

00035 OUT#O OFF: IN#2 REM VDU Off. 300 baud Cass. in 
00036 INPUT K1$, D, H, X. Y. Z. E: K1$=K1$(;7) 

00037 IN#0: OUT#0 REM VDU On again 

00038 IF O=3 AND H<3 THEN LET 0=0 

00039 IF O=1 AND H=2 THEN LET O=0 

00040 IF O>1 AND H=1 THEN LET O=0 

00041 KO$=""; J=1: L=D-1: IF O<4 THEN 44 

00042 J=C: L=L+C: C=L: S=0: KO$=""-"Merge" 

00043 IF C>V+1 THEN LET C=V+1: KO$=KO$+"~ (Part only)" 

00044 IF O=2 OR O=3 THEN LET C=D: S=Z 

00045 IF O=1 OR O=3 THEN LET BO$(0)=K1$: P=X: R=Y: T=E 
00046 K1$=K1$+KO$: CURS 0,12: PRINT [A64°32] 

00047 CURS (64-LEN(K1$))/2,12: PRINT K1$: CURS 26,13 

00048 IF H=1 OR O=1 OR C=1 THEN PRINT "~°(Base)": GOTO 51° 
00049 IF (H=2 OR O=2) AND C>1 THEN PRINT "““(File)": GOTO 51 
00050 IF S=0 AND C>1 AND O>1 THEN PRINT "(Unsorted)" 

00051 IF O=0 THEN 79 ELSE LET N=X: IF Y>X THEN LET N=Y 
00052 CURS 0: OUT#O OFF: IN#3 REM VDU Off, 1200 baud Cass. in 
00053 FOR X=1 TO N' REM Load Base 

00054 IF (O=2 OR 0=4) AND H=3 THEN INPUT KO$, KO$, F1, F1 
00055 IF O=1 OR O=3 THEN INPUT BO$(X), B1$(X), B2(X), B3(X) 
00056 NEXT X: IF O=1 THEN 58 ELSE FOR X=J TO C STEP 3 

00057 INPUT AOS(X), AOS(X+1), AO$(X+2): NEXT X 

00058 IF C<V+1 AND O>1 THEN GOSUB 336 

00059 Y=P+1: IF P<20 THEN GOSUB 337 

00060 Y=R+1: IF R<20 THEN GOSUB 338 


New Base 

This option assists in ‘chaining’ ledgers by taking the base categories of an 
“sting ledger, adding to each the total of all applicable files, then 
asing the files themselves. This new base now contains ‘carried forward’ 

totals that are used in the new ledger, so its balance sheet reflects the 

total of the entries in both. 

When the option is selected you'll first be asked if you're ‘Sure?’, as 
accidental selection of this routine would have disastrous results. You'll 
then be asked to enter the name of the new ledger, following which the 
necessary operations will be carried out and the program will return to the 
menu. 


A Final Balance 

No doubt some readers will have the utter horrors at typing in a program 
of this length. If you want to save yourself the trouble, forward a cheque or 
money order for $15, payable to Dreamcards, 8 Highland Court, North 
Eltham 3095 (mail order only), and I'll send you a tape. 

Anyone wanting a more sophisticated tape-based accounting system 
might like to consider my Multibank program ($34.95 plus $1.50 postage 
and packing, for cassette and manual). This generates cassette files 
containing up to eight ledgers, and has heaps of frills usually only found 
on expensive disk-based systems (such as automatic allowance for 
periodical debits). 


00063 REM ---------------- “Create” Routine --~-~------------ 


00065 GOSUB 331: IF K1$="N" THEN 3 

00066 G=24: Ke$="File°Title": GOSUB 298: GOSUB 250: BO$(0)=K1$: I =1 
00067 GOSUB 304: P=P+1: GOSUB 249: BO$(P)=K1$: K3$=K1$ 

00068 IF K3$="" AND P=1 THEN LET BO$(1)="Payment": GOTO 70 
00069 IF K3$="" THEN LET P=P-1: GOTO 71 

00070 GOSUB 237: B2(P)=F3: IF P<20 AND K3$<>"" THEN 67 

00071 PLAY 22,1 

00072 GOSUB 307: R=R+1: GOSUB 249: B1$(R)=K1$: K3$=K1$ 

00073 IF K3$="" AND R=1 THEN LET B1$(1)="Receipt": GOTO 75 
00074 IF K3$="" THEN LET R=R-1: GOTO 76 

00075 GOSUB 237: B3(R)=F3: IF R<20 AND K3$<>"" THEN 72 

00076 PLAY 22,1: T=0: FOR X=1 TO 20: IF B2(X)>0 THEN LET T=T+1 
00077 IF B3(X)>O THEN LET T=T+1 

00078 NEXT X: C=1: K3$=""; GOTO 3 

00079 CURS 0: PLAY 22,1; 0,5: GOTO 3 


Coming Soon . 00081 REM ---------------- “Enter” Routine ~----------------- 


Next month's issue of Your Computer will tell you how LedgerMaster pel 


: : 00083 IF C>V THEN 3 
and how to convert it to run with other BASICs. 


00084 S=0: AO$(C)="": M=C: GOSUB 268: I=C-1: G=2 
00085 IF C>1 THEN LET X=C-1: GOSUB 292 


87 


- LedgerMaster 
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00086 
00087 
00088 
00089 
00090 
00091 
00092 
00093 
00094 
00095 
00096 
00097 
00098 
00099 
00100 
00101 
00102 
00103 
00104 
00105 
00106 
00107 
00108 
00109 
00110 
00111 
00112 
00113 
00114 
00115 
00116 
00117 
00118 
00119 
00120 
00121 
00122 
00123 
00124 
00125 
00126 
00127 
00128 
00129 
00130 
00131 
00132 
00133 
00134 
00135 
00136 
00137 
00138 
00139 
00140 
00141 

00142 
00143 
00144 

00145 
00146 
00147 
00148 
00149 
00150 
00151 

00152 

00153 
00154 

00155 
00156 
00157 

00158 

00159 
00160 

00161 

00162 

00163 
00164 

00165 
00166 
00167 
00168 
00169 
00170 


K2$="Day": GOSUB 250: IF K1$="" AND F1>0 THEN 92 
F1=VAL(K1$): IF F1=0 OR F1>31 THEN 86 

K2$="Month": GOSUB 250: IF K1$="" AND F2>0 THEN 92 
F2=VAL(K1$): IF F2=0 OR F2>12 THEN 88 

K2$="Year”: GOSUB 250: IF Ki$="" AND F3>0 THEN 92 
F3=VAL(K1$): IF F3=0 THEN 90 


RESTORE: FOR X=1 TO INT(F2): READ Z: NEXT X 
DATA~31,28,31,30,31,30,31,31,30,31,30,31 
IF FRACT(F3/4)=0 AND F2=2 THEN LET Z=29 
IF INT(F1)<=Z THEN 97 

CURS 1,16: PRINT "****DATE~ ERROR ***"; : 
KO$=STR$(INT(F1)): K1$=KO$(;2)+"/" 
KO$=STR$(INT(F2)): K1$=K1$+K0$(;2)+"/" 
KO$=STR$(INT(F3)): IF F3<10 THEN LET K1$=K1$+"0" 
K1$=K1$+KO$(;2): GOSUB 267: K2$="From/To": G=16: 
GOSUB 250: IF K1i$="" THEN LET K1$="Paid" 

GOSUB 267: K2$="Cheque/Receipt“No.": G=7: GOSUB 250 

IF X=2 THEN LET K1$="B/card" ELSE IF X=3 THEN LET K1$="Cash" 


PLAY 10,12: GOTO 86 


I=1 


GOSUB 267: K2$="Receipt”™ (R) or” Payment” (P)" 

GOSUB 226: IF K1$<>"R" AND K1i$<>"P" THEN 105 

GOSUB 285: GOSUB 298 

IF K1$<>"P" THEN 109 

M=P: IF M=1 THEN LET K1i$="A": GOTO 111 ELSE GOSUB 304: GOTO 110 
M=R: IF M=1 THEN LET K1$="A": GOTO 111 ELSE GOSUB 307 
K2$="Category": GOSUB 226: X=X-64: IF X<1 OR X>M THEN 110 


GOSUB 267 

G=9: I=0: K2$="Amount": GOSUB 250: GOSUB 242: IF X=1 THEN 112 
GOSUB 267: K2$="Next=<CR>~ “Menu=M° “Re-do=R°":I=1 

GOSUB 226: IF K1$="R" THEN 84 

IF K1$<>"M" AND X<>128 THEN 114 

C=C+1: IF X=128 THEN 83 ELSE 3 

REM 

REM ~-------~----~------ "Save" Routine -----------~--~--- 
REM 

N=3: IF C=1 THEN LET N=1 

GOSUB 324: IF H=0 THEN 3 

N=P: IF R>P THEN LET N=R 

FOR Q=1 TC 2: PLAY 0,60: KO$=B0$(0) 

CURS 0,12: PRINT [A28°32]: "Copy": Q: {A28°32]: CURS 0 


OUT#2 REM 300 Baud Cassette out (VDU remains on) 
PRINT REREEKE" : 
PLAY 0,1: OUT#3 REM Delay / 1200 Baud Cassette out 
IF H=2 THEN 130 ELSE FOR X=1 TO N’- REM Save BASE 


PRINT BO$(X); “,"; Bi$(X); "."; Be(xX); ".": B3(X): NEXT X 
PLAY 0,1: IF C<2 OR H=1 THEN 133 

FOR X=1 TO C STEP 3 REM Save FILES 

PRINT AOS$(X); "."; AOS(X+1); “; AOS(X+2): NEXT X 
OUT#0 REM De-select Cassette output 

NEXT Q: GOTO 79 

REM 

REM --~---- +e re rrr "Delete" Routine -~-- ---------- 
REM 

G=3: K3$=""file to be deleted": K2$="First"-K3$ 

GOSUB 250: O=INT(VAL(K1$)): IF O<1 OR O=>C THEN 138 


M=0: GOSUB 268: GOSUB 232: IF K1$="N" THEN 3 
G=3: K2$="Last"+K3$+""-"°or°<CR>": [=1: GOSUB 250 
L=INT(VAL(K1$)): IF K1$="" THEN LET L=0 


I=0: IF L<O OR L=>C THEN 141 ELSE IF L=0O THEN 145 
M=L: GOSUB 268: GOSUB 232: IF K1$="N" THEN 14] 
K3$=""; Z=L-O+1: X=0: GOSUB 317: FOR X=L+1 TO C 
A0$(0)=A0$(X): O=O+1: NEXT X: C=C-Z: GOSUB 336: GOTO 79 
REM 

REM --------- -->-- “Print” Routine -- -- ieee 
REM 

G=20: T=): H=1: Ke$="String”search": GOSUB 250: K4$-:K1$ 
IF ASC(K4$)=35 THEN LET H=INT(VAL(K4$(:2))): K4$="8" 
IF H=0O OR H>C-2 THEN 150 
K2$="Screen’(S) or’ Printer” (P)": GOSUB 226 

L=12: IF K1$="S" THEN 163 ELSE IF K1$<>"P" THEN 3 
GOSUB 298: K2$="PRINTER Type:": PRINT \\ SPC(15); K2$ 
PRINT \ SPC(20) “Parallel” °"""~ -""Key71" 

PRINT SPC(20) “Serial” 300bd°~-~ "Key 2" 

PRINT SPC(20) “Serial” 1200bd~ -~"“Key~3" 

PRINT SPC(20) "“Abort”-""“any other’ Key" 

GOSUB 226: X=X-48: IF X<0O OR X>4 THEN 3 

L=57: Q=X: IF X>1 THEN LET Q=X+2 

GOSUB 225: OUT#0: QUT#O OFF: OUT#Q ON: PRINT 

FOR X=1 TO 20: B4(X)=B2(X): BS5(X)=B3(X): NEXT X 

D=0: F3=0: F4=1: O=T: U=0: W=0O: E=C+P+R+T+4 

IF K4$<>"" THEN LET E=C: O=1 

G=1: KO$=KEY$: IF KO$="" THEN 169 ELSE PLAY 22,2 

IF KO$="A" OR KO$="a" THEN 210 REM Detect <A> key 


K1$=KEY$: IF K1i$="" THEN 168 REM Hold if any other key 
IF D>O THEN 178 ELSE IF Q>0 THEN 171 REM Page Heading 
FOR X=3 TO 14: CURS 1,X: PRINT [A64°32]: NEXT X: CURS 1,3: GOTO 178 


rn LS TE ERP EP SE ene 
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PRICELESS PROGRAMS 


D=2: PRINT "LEDGER:~"; BO$(0); SPC(26-LEN(BO$(0))); 
K2$="“to"~": IF S=0 THEN 175 REM Print dates if SORTED 
KO$=A0$(1): GOSUB 286: K2$=K1$+K2$ 


KO$=A0$(C-1): GOSUB 286: K2$=K2$+K1$: PRINT K2$; 
PRINT SPC(34-LEN(K2$)); “Page™"; F4: F4=F4+1 

PRINT "No.~~""~ DATE”~ ~~ “TRANSACTION”; SPC(17); 

PRINT "CLASS"; SPC(16); "AMOUNT”($)": PRINT [A79°~45] 


IF O=0 OR K4$<>"" THEN 188 REM Print “Carried Forward" 
U=U+1: IF U>P THEN 182 

F1=B2(U): IF F1=0 THEN 179 

KO$=B0$(U): X=LEN(KO$): Z=0: GOTO 184 

W=W+1: F1=B3(W): IF F1=0 THEN 182 

KO$=B1$(W): X=LEN(KO$): Z=11 


IF O=T THEN PRINT "“CARRIED* FORWARD: ~~~"; ELSE PRINT SPC(20); 
IF Q>0 THEN PRINT SPC(22); KO$; SPC(27-X-Z); 

IF Q=0 THEN PRINT KO$; SPC(33-X-Z); 

O=0-1: PRINT [F10.2°F1]: GOTO 205 REM Print amount carried 
IF K4$="" OR K4$="#" OR O<>1 THEN 190 

PRINT \ SPC(10); "“SEARCH;~"; K4$ \: O=0: G=3: GOTO 205 

M=H: IF K4$="" THEN LET M=H-T 

IF M<1 OR M>=C THEN 194 ELSE GOSUB 269 REM Print FILE 

IF M=O THEN LET B5(N)=B5(N)+F1 ELSE LET B4(N)=B4(N)+F1 

GOTO 205 REM Add balance in file to BASE category 

IF K4$<>"" THEN 205 

M=M-C: IF M=O THEN PRINT: GOTO 205 REM FILE End 

IF M>P THEN 199 ELSE IF B4(M)=O THEN 209 REM Payments 


PRINT SPC(20):; BO$S(M):; SPC(22-LEN(BO$(M))); [F10.2°B4(M) } 
F3=F3-B4(M): GOTO 205 

M=M-P: IF M>R THEN 202 ELSE IF B5(M)=0 THEN 209 REM Receipts 
PRINT SPC(20); B1$(M); SPC(22-LEN(B1$(M))); [F10.2°B5(M) ] 
F3=F3+B5(M): GOTO 205 

X=67: IF Q=0 THEN LET X=51 REM Print Total at end 

IF H=E OR H=E-2 THEN PRINT SPC(X+2); [A10°45]): G=1 


IF H=E-1 THEN PRINT SPC(X); [{F11.2°F3]: G=1 

D=D+G: IF D<L THEN 209 REM Lines per page counter 
REM Delete next line if not using fan-fold paper 
IF Q>O THEN PRINT \\\\\\\ REM Perf. gap = 7 lines 


D=0: IF Q>0 THEN 209 ELSE GOSUB 225: IF KO$="A" THEN 212 
H=H+1: IF H<=E THEN 166 REM Detect end of printing 
IF Q>0 THEN OUT#Q OFF: GOTO 212 


IF KO$<>"A" AND KO$<>"a" THEN GOSUB 225 

Q=0: GOTO 3 

REM 

REM ------- rere rr “New Base" Routine -------------77- 

REM 

GOSUB 232: IF K1i$="N" THEN 3 

I=1: G=24: K2$="New Title": GOSUB 250: IF K1$<>"" THEN LET BO$(0)=K1$ 
FOR Y=1 TO C--1: KO$=AO$(Y): X=SEARCH(KO$,"1",3): GOSUB 287 
0=ASC(KO$): GOSUB 286: Z=ASC(K0$)-64: GOSUB 286: F1=VAL(KO$) 

IF O=80 THEN LET B2(Z)=B2(Z)}+F1 ELSE LET B3(Z)=B3(Z)+F1 


X=Y: GOSUB 317: NEXT Y: C=1: GOSUB 336: GOTO 76 

REM 

REM ---~-~-~--- ~--- "Key to Continue" Sub. ------------- 
REM 

K2$="KEY° to Continue" 


G=1: GOSUB 250: X=ASC(K1$) 

IF X>96 AND X<123 THEN LET X=X-32: K1$=CHR$(X) 

RETURN 

REM 

REM ---------7----7->- "Sure (Y/N)" Sub. ~--- ---~-------- 
REM 

K2$="Sure’ (Y/N)": GOSUB 226: IF K1$<>"N" AND K1$<>"Y" THEN 232 
RETURN 

REM 

REM ---------- “Previous Balance” Input Sub. --------- 
REM 

G=9: K2$="Balance Forward": GOSUB 250: GOSUB 242 


IF X=1 THEN 237 ELSE RETURN REM Loop if invalid amount 
REM 


REM ------------7--- “Money Input" Sub. -----~---------- 

REM 

X=1: F1=VAL(K1$): IF F1i<=0 AND I=0 OR F1=>1000000 THEN 245 
X=0: F2=FRACT(F1): F3=F1-F2+FLT( INT(F2*100) )/100 
K1$=STR$(F3): K1$=K1$(;:2) REM Round off to 2 places 
RETURN 

REM 

REM ~--------5------- Main “Input” Sub. --------------- 

REM 

G=12: K2$="Category" 


GOSUB 299: Y=LEN(K2$): CURS 1,15: PRINT [{A64°45] [A63°32]; 
X=V+1-C: IF X>V THEN LET X=V REM Limit free files counter 
CURS 1,16: PRINT K2$;: CURS 52.16: PRINT INT(FRE($)); "":": X; 
CURS Y¥+3,16: Z=0: Ki$="": FOR X=1 TO G: PRINT "*";: NEXT X 
CURS Y+1,16: PRINT "?7"; REM Print prompt line 

KO$=KEY$: X=ASC(KO$): IF X=124 OR X=128 THEN 255 


00256 
00257 

00258 
00259 
00260 
00261 

00262 
00263 

00264 

00265 

00266 
00267 

00268 
00269 
00270 
00271 

00272 
00273 
00274 
00275 
00276 
00277 

00278 
00279 
00280 
00281 

00282 
00283 
00284 
00285 
00286 
00287 
00288 
00289 
00290 
00291 
00292 
00293 
00294 
00295 
00296 
00297 
00298 
00299 
00300 
00301 
00302 
00303 
00304 
00305 
00306 
00307 
00308 
00309 
00310 
00311 
00312 
00313 
00314 
00315 
00316 
00317 
00318 
00319 
00320 
00321 
00322 
00323 
00324 
00325 
00326 
00327 
00328 
00329 
00330 
00331 

00332 
00333 
00334 
00335 
00336 
00337 
00338 


IF X=8 OR X=127 THEN 261 ELSE IF X>13 THEN 259 

IF Z>O THEN CURS 0: RETURN REM End if <CR> 

IF I>0 THEN LET K1$="": RETURN ELSE 255. 

Z=Z+¥: CURS Y+Z+2,16: PRINT KO$; REM Print Input so far 
K1$=K1$+KO$: IF Z=G THEN RETURN ELSE 255 REM End of string? 
KO$=K1$(;1, LEN(K1$)-1): K1$=KO$ REM <DEL>ete Key 


IF Z>O THEN CURS Y+Z+2,16: PRINT "*";: CURS Y+2,16: Z=Z-1 
GOTO 255 

REM 

REM ------------- "File entry" Print Sub. ------------ 
REM 

M=C: GOSUB 285 REM "M" is record number 


GOSUB 298: PRINT "FILE:” 
IF K4$="""OR K4$="#" THEN 271 REM Implement “Search” 
KO$=A0$(M): IF SEARCH(KO$ ,K4$)=0 THEN LET G=0: RETURN 


KO$=STR$(M)+".": KO$=KO$(;2): X=LEN(KOS) 

PRINT KO$; SPC(4-X);: KO$=A0$(M): GOSUB 286 REM Date 
PRINT SPC(9-LEN(K1$)); K1$; "~";: IF Q>0 THEN PRINT """; 
GOSUB 286: PRINT K1$; SPC(18-X); REM Item 


GOSUB 286: PRINT K1$; SPC(9~-X); REM Cheque/Receipt No. 

GOSUB 286: M=0: IF K1$="P" THEN LET M=11 REM Rec/Pay? 

IF Q=0 THEN PRINT K1$: """; REM Don't print in full on VDU 
GOSUB 286: N=ASC(K1$)-64: K2$=BO$(N): IF M=0O THEN LET K2$=B1$(N) 
IF Q>0 THEN LET X=LEN(K2$): PRINT K2$; SPC(16-X); ELSE PRINT K1$: 
GOSUB 286: F1=VAL(K1$): IF F1>0 THEN PRINT SPC(M); [F10.2°F1] 
RETURN 


REM 

REM -----~------ Extract file section Sub. ----~--~----- 
REM 

A0$(C)=A0$(C)+K1$+"|[": RETURN REM "|" delimits section 
K1$=""; X=SEARCH(KO$,"|"): IF X=0 THEN RETURN 


K1$=K0$(;1,X-1): KO$=KO$(;:X+1): IF Q>O THEN LET X=X-1 


RETURN 

REM 

REM ---~-------- Extract Date Variables Sub. ----~----- 
REM 

K1$=A0$(X}: F1=VAL(K1$): Y=SEARCH(K1$,"/")+1: K1$=K1$(;Y) 


F2=VAL(K1$): Y=SEARCH(K1$,"/")+1: K1$=K1$(;Y) 
F3=VAL(K1$): F4=100*F3 + F2 + F1/100: RETURN 


REM 

REM ------------ Print Screen heading Sub. ----------- 
REM 

CLS 

CURS 17,1: INVERSE: PRINT "~*°Dreamcards”  LedgerMaster’ *~" 


NORMAL: PRINT [A64745];: RETURN 

REM 

REM ~----------------- Print BASE Sub. ---------------- 

REM 

GOSUB 298: PRINT "PAYMENT CATEGORIES:~7~("; BO$(0); ")": K2$="Category" 


IF P=O THEN RETURN REM Payments 

FOR X=1 TO P: KO$=BO$(X): F1=B2(X): GOSUB 310: NEXT X: RETURN 
GOSUB 298: PRINT "RECEIPTS CATEGORIES: ~~("; BO$(0O): ")"” 

IF R=O THEN RETURN’ REM Receipts 

FOR X=] TO R: KO$=B1$(X): F1=B3(X): GOSUB 310: NEXT X: RETURN 
J=X+3: K=3: IF X>10 THEN LET J=J-10: K=35 

CURS K,J: PRINT CHR$(X+64); ".°~"; KO$; SPC(13-LEN(KO$)); 

IF F1>0 THEN PRINT [F10.2°F1] REM Print any balance 

RETURN 


REM ooo s sees "Counter" Print Sub. -------------- 
IF X>1 THEN 319 


CURS 1,12: PRINT [A26°32] "“*"WAIT™*" [A92°32] 
IF X>0 THEN CURS 28,13: PRINT [14°X]; 


CURS 0: RETURN 

REM 

REM -------------- Tape I/0 Prompt Sub. -------------- 

REM 

Ke$="Base”(1)": IF N>2 THEN LET K2$=K2$+", Files” (2),7Al17(3)" 
IF N>3 THEN LET K2$=K2$+" , “Merge” (4)" 


GOSUB 226: H=INT(VAL(K1$)): IF H>N THEN LET H=0 
O=H: CURS 26,12: PRINT "Start”tape": CURS 0: RETURN 


REM 

REM ----~-~------- Initialise Arrays Sub. -------~------ 
REM 

IF C=0 THEN 333 REM Print prompt if existing file 


GOSUB 232: IF K1$="N" THEN RETURN 

CLEAR: V=320: STRS(V*51+1400) REM V = Max. No. of files 
DIM AO(V+2), Al(V+2), BO(20), B1(20), B2(20) 

DIM B3(20), B4(20), B5(20): GOSUB 337: GOSUB 338 


FOR X=C TO V+2: AO$(X)="": NEXT X: K1$="": RETURN 
FOR X=Y TO 20: BOS(X)="": B2(X)=0: NEXT X: RETURN 
FOR X=Y TO 20: B1$(X)="": B3(X)=0: NEXT X: RETURN 


‘“CHARLIE’S 
CASHBOOK” 


Any ‘‘Charlie’’ Can Use It! 


“Cashbook”’ is two programs in one . . . both working together. 

The first manages all your bank accounts and the second manages 
your expense ledgers. 
““Cashbook”’ will save hours of your accountant’s valuable time and 
provide ‘up-to-date’ financial reports . . . whenever you require them! 


But, What Does It Do? 


@ Ultra fast 

@ Multi-Company or Department 
@ Multiple Bank Bank Accounts 
® Detailed Bank Reports 
_@ Detailed Expense Reports 

@ Full Bank reconciliation 

® Comprehensive documentation 
@ Runs on IBM and compatibles 


PHONE YOUR ORDER 


SPECI AJ. THROUGH NOW! ... AND WE ¢ 4 9 9 


WILL HAVE ‘“‘CASHBOOK’”’ 


OFFER: ON Your DEsk 


IN THE MORNING 


-Charlie’s Computer Products 


wadiiereaia * Dealer Enquiries Welcomed * 


P.O. Box 513, South Perth, W.A. 6151 


PHONE: (09) 367-7532 


Rockwell 


QUALITY SEMICONDUCTOR PRODUCTS 
68000 - 6500 


rk 


exempt 

R68000C6 CPU Ceramic DIL.............. ccc ec ec eee e ec en ence en eneneneee eens $55.79 
R6800006 CPU Plastic Compact QUIP «0.2.0.0... ccc cccc eee eccneeeeeen een eenes $36.76 

(8, 10 MHz avail. 12 MHz avail. soon) 
R6502P GPU AO Dit ici cived seared seve teiosncains al splot eat dessieantentona Meehan $8.29 
R6503P R6504P R6507P CPU, 28 pin.......... cece cece cece eee eee eees $7.24 
R6511Q ~— Single chip microcomputer, 64 pin CPU, RAM ACIA I/O, 

Timers, 64k AdCIreSS............cccccccceeeeeees aint metas ecaeeaN, $20.93 
R6520P PIA 40 Din... ccc ccc eseececevesence tenes aha eine Sionutaadenaceaeseen $5.13 
R6522P VIA 40 pin, 20 1/0, 2 « Timer/Ctr S. Reg ................0..ccecceeeeeeee es $7.37 
R6532P COMBO 40 pin,.128 byte RAM, 20 1/0, timer...................0.0: eee $9.21 
R6541Q Slave Processor, 64 x 8 RAM, 23 1/0, host slave I/F, timers, 4K 

Oxtefial:AGGIOSS: ssc7ivssccs ss Gancypasmarconentumy petnerye au taveaasMialentin: $15.01 
R6545-1P Video Controller.......... 0... cece cece ccc ee acc cee cee eeeen eee seneeneenenees $12.51 
R6551P ACIA integral Baud rate gener ..................ccccc ec ccc cece eee ee eee ee eens $8.82 
R6592P Single chip printer controller for Epson Low Cost Printer ................ $15.14 
CMOS 
R65CO2 P1 CPU, 40 pin plastic, enhanced instruction set.......................00608 $10.00 
RESGZISPT: IPR AO DIN pases srcvecaceuatcnsn seaamencae seas cutee aeeeee eee ns cand $7.90 
R65C24 P11 ~PIAT, 1/0 x Timer 40 pin 6821/6521 compatible .......................... $9.48 
R65C51 P1  ACIA 28 pin 0... cece cece cece cece cease een ee sensu ee eeneneenens $10.00 


NOTE: Plus $5.00 P & P. All prices Tax exempt 


Note: Rockwell CMOS has superior latch up resistance compared to compatible 
designs from other makers using first generation masks. 
PARTS ALSO AVAILABLE 2MHz 
CONTACT THE OFFICE FOR PRICES AND AVAILABILITY 
All prices are subject to change 


without notification. For 
Ce *) eC -immediate despatch of your 
order, phone and quote your 
CONTROL Bankcard number. 
SUSTANTIAL OEM QUANTITY 
DISCOUNTS AVAILABLE. 
73 Eric Street, Goodna, Qlid., Australia 


P.O. Box 6502, Goodna, Qld. 4300 
Telephone (07) 288 2455. Telex AA 43778 ENECON 
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CB80/86 Standard 


I/O Library 


The lengthy CBASIC Compiler (CB80 and 
CB86) listings here may seem a bit much for 
a single program — and they are. We're 
including our in-house function library, and 
its support files, both to make your own 
programming easier and to ensure you have 
the library available in future when we 
publish other programs which use it. 


SEVERAL OF THE FUNCTIONS listed in the following pages are based 
on a set of PL/ routines written by John Skaller for our subscriptions 
system. They are in many ways an effective replacement for Digital 
Research's Display Manager — John had to write them because our 
DM86 hadn't arrived by the time we had to have our system running. 

The dBase file fixer FIXDBF.BAS uses several of the functions in the 
library, but certainly not all of them — you can be selective about those 
you type in if you wish. However, we recommend you take the complete 
library, and compile and LIB it for easy use in the future. 

The files which make up the function library are these: 


STDIO.BAS: The function definitions themselves (we'll explain them 
one-by-one later). These can be used as is by %INCLUDEing them in 
your source file, or defined as PUBLIC for library creation and an 
appropriate set of EXTERNAL declarations created. 


STDIO.DCL: These are declarations of the global variables used by the 
functions (and by the programs themselves). All are declared COMMON, 
to allow for the separate library approach. 


STDIO.ASS: This file assigns values to the variables declared in the DCL 
file, and is normally %INCLUDEd at the start of your source file. 


STDIO.TRM: Most of the functions use direct screen addressing and 
other terminal-specific control codes. The default values in the library 
are for terminals in the Televideo/ADM style, which may not suit you. 
Alternative codes can be put in this file, and a call to the GET.PARMS 
function will install these values in your program. 


Now, let’s look at the functions themselves: 


Unbug(vS) is useful for debugging a program — it is passed a message 
which is printed to the status line of the TVI950 terminal. 

Conout(vS), coninpS, and conprt(msg$) are simple ‘print a character’, 
‘get a character’ and ‘print a string’ routines used by the I/O functions. 
We have versions which use BDOS calls, but suggest you use these 
simplified ones for portability. 

Terminit, highlight, lowlight, reverse, unrevrs, clrscr, clreo] and bell are 
self-explanatory. 

Gotoxy(x%,y%) allows direct screen addressing. It is fed x and y co- 


ordinates, which should be | to 24 and | to 80 respectively. If it is given a 
co-ordinate of 0, it assumes the last-addressed position. (There is no 
provision for terminals which send column before row.) 
Displ(x%,y%,v$) displays the string vS at the co-ordinates specified, 
while displyl(x%,y%,vS) does the same and clears to end-of-line. 
FmtdateS(da$) turns a date string in the form 850501 around to ¢ 
01/05/85. 

FmtnumS(de,le%) takes a number and turns it into a string of a specified 
length to allow easier screen editing. 

FmtdolS(de,le%) does the same, but in decimal format (that is, it shows 
1000 as 10.00). 

ValidS(q$,type%) is used by the input functions to validate the oper- 
ator’s input, which can be forced to alpha, numeric, upper case or only 
alpha. 

Vinput$(x%,y%,n%,type%) is a string input routine. At the x-y position 
specified it puts n% dots (the length of the string to be input) and 
accepts only type% input. Backspacing will delete the previous character 
and replace it with a dot. Valid type% values are alpha, numeric, upper 
and onlyalpha (assigned in STDIO.ASS). Linput$(x%,y%,n%) is a simpler 
way to use vinput — it assumes a type of alpha. 
Vupd$(x%,y%,deflt$,type%) is a string update routine which works in 
much the same way as Vinput, but with an existing default. Lupd$ 
(x%, y%,defltS), like Linput, assumes a type of alpha. 

Syserr(x%,y%,V$) prints an error message vS at the specified co-ordinates 
and waits for a key to be hit before continuing. 

Yesno%(x%,y%,v$,d%) puts the question vS at the specified position, 
follows it with ‘Y/N’, and positions the cursor on the default answer (d%). 
The default can be yes, no, or none — if it is none the cursor is 
positioned on the slash and an answer of Y or N is forced. 
Verify%(tmpstrS,patrn$) compares a string to a given pattern to confirm 
that only legal characters (that is, those in the pattern) are include“ 
Vdate%(vddmmyyS) verifies a date passed as ddmmyy, RevdateS( 
mmyyS) reverses a date from ddmmyy to yymmdd or vice versa. 
Ninput(x%,y%,fln%,minval,maxval,defval) is like Vinput, but for num- 
bers, and allows you to specify length (fln%), minimum, maximum and 
default values. 

Nupd(x%,y%,fln%,minval,maxval,defval,deflt) provides numeric update, 
like Lupd, but allows for an alternative default. Note that in Ninput and 
Nupd all numbers are converted to strings for the sake of convenient 
screen handling, and converted back again later. 
Doscan%(patrn$,baseS) checks how often the patrnS occurs in the string 
bases. It is a support routine for IsvalidS. Both functions are adapted 
from a Digital Research sample program. 

IsvalidS(fname$S) checks the validity of a filename, returning a null string 
if it is incorrect. 

ChrconvS(v$) is a support routine for Get.parms. It converts decimal 
ASCII values to the appropriate characters for screen control sequences. 
Get.parms allows you to change screen control strings to suit different 
terminals. It looks on the disk for a file called STDIO.TRM and, if it finds 
it, replaces the values in memory with the new values. 

TrimS(v$) trims trailing blanks from the string vS. 

Delay(length) provides a delay of approximately length seconds. This 
depends on dlyfactor, set in STDIO.ASS, which will vary from machine to 
machine. The default of 250 works on a 6 MHz 8085. 

Err.handler is an error handler which simply prints the error code and 
exits. It assumes the error is fatal, and is provided mainly for use during 
the development phase of a program. CO 
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“7 PRICELESS PROGRAMS 


\ Se rtens raters eters eS ee sess ees eases se ese ses=e=YNBUG 
def unbug(vS) 
rem print to status line of kokusai 
print escapet"g"+escapet+"f"+vS+chr$(13); 
koz=inkey 
fend 


\ Sees rrer rr etre eet eee eseSeeessasse2s==2 ==2=CONOUT 
def conout(v$) 
print vS; 
fend 
‘ SBEeErerreer ses testes SS sess s tee ssrs eu eweecwecoNuNne 
aef coninp$S 
vS=chrS(inkey) 
coninpS=vs$ 
fend 


def conprt(msg$) 
for qiz=1 to len(ms 
call ee eee qiz, 1)) 
next qiz 
fend: 


====CONPRT 


(\seeeecsesess Sees eserssesees ees Se ese ste=TERMINIT 
def terminit 

call conprt(trmini) 
fend 


\ st eeeset sees see ees taessszsessse wc msmeemsem2}HIGHLIGHT 
def highlight 

_ ©¢all conprt(fullintensity) 
fend 


\=eraceeretss= 
def lowlight 

call conprt(halfintensity) 
fend 


\ Se seer tee tes st ees esse se esse en sees sEe=====REVERSE 
def reverse. 
call conprt(revideo) 
id . 


\ SSB eres sete Sesser stresses esses sssees==YUNREVRS 
def unrevrs | 

call conprt(€normvideo) 
fend 


fend 


\ seme reat een ere sss eee SSeS SSS STS SSS SE sTzEHsZ=ZH=GOTOXY 
def gotoxy(x%,y%) 
rem screen 1-80 x 1-24 -—- O gives prev. posn 
if x%<>0 then crow=xZ 
if y%>0 
then ccol=y% © 
else 
if y%r < O 
then ccol=ccol-y% 
call conprt(xyleadin+chr$ 
Ccrowt+31)+chr$(ccol+31)) 


a a a 


fend 


\SSetesssern serene ese esseees sees seer sssssez=e=plSP. 
def displ(x%,y%,vS) 
call gotoxy(x%,y%) 
for qiX%=l to len(vS) 
call conout (midS(v$,qiZ%,1)) 


a ladaielaialaiaiateieteteiaiaiaiaiaiienmanann ==2[TLOWLIGHT 


next qiz 
ccol=ccolt+len(vS) 
fend 


\Seesnereases ere ene See e sees Sess esesees====CLREOL 
def clreol 
call conprt(eraeol ) 
fend 
\ seb enkteeeehweton menace a nacenaeneaneseeneDTSPLY1, 


def displyl(xZ%,yZ,v$) 
call displ(xZ%,y%,vS) 
call clreol 

fend 


\semeeneersese st ess esses sesessseeeeee2==22=CLRSCR 
def clrscr 
call conprt(cls) 


ccol=1 — 
crow=1 
fend 
\szeeceze2 Kase case se ees See aE RET Esesses=Z==FMTDATES 
def fmtdate$(da$) 
fmtdateS=midS$(da$,5,2)+"/"+ \ 
mid$(da$,3,2)+"/"+ \ 
mid$(da$,1,2) 
fend 
\saseesesses Serres essessessesssessssses====FMTNUMS 
def fmtnumS$(de, lez) 
tmpS=" "+strS(de) 
fmtnumS=right$(tmp$,1le%) 
fend 
\ SRemre ere ene esr ssneseenSeeeresessesee==22=2==FMTDOLS 
def fmtdolS(de,leZ) 
dd=de/100.00 
tmpS=" "+str$(dd) 


if match (".",tmp$,1)=0 then 
tmpS=tmp$+".00" | 

if midS(tmpS$,len(tmp$)-1,1)="." then \ 
tmpS=tmp$+"0" 

fmtdolS=right$(tmp$,le%) 


\“GinnntetaeecnsuatenssenndaeataeuaeeaneeeeeeqVALIDs 


def validS(qS, type) 
validS=" 
if type%=alpha then \ 
if (€asc(q$)>31 and asc(q$)<127) then \ 
validS=q$ 
if type%=numeric then \ 
if match(q$,"-.+0123456789",1)>0 then \ 
validS$=q$ 
if type%=upper then \ 
if match(qS, \ 
" ABCDEFGHI JKLMNOPQRSTUVWXYZ'"'+ \ 
" 0123456789[ ]<¢> {7 e+ C)IGHSZ“*-/ 8, '"\ 
+chr$(34),1)>0 then \ 
validS=q$ \ 
else \ 
if match(qS, \ 
"abcdef ghi jklmnopqrstuvwxyz" \ 
then \ 
q$=chrS$(asc(q$)-32) 
if typeZ=onlyalpha then \ 
if match(qS, \ 
" ABCDEFGHI JK LMNOPQRSTUVWXYZ 0123456789."\ 
»1)>0 then 
validS=q$ 


,1)>0 
validS=q$§ 


fend 


91 


CB80/86 


\ SESE Ener ene eet esterase eee see esas sessez=eVINPUTS 


def vinputS(x%,y%,n%, typez) 
integer l,i 
dim ch$(80) 
readline: 
call lowlight 
call gotoxy(x%,yZ) 
for i=l to n% 
call conout(".") 
next i 
call highlight 
call gotoxy (xZ,yZ) 
1=0 
goto readch 
wrong: 
call bell 
readch: 
q$=coninp$ 
qqS$*validS(qS,typezZ) 
if qq$<>"" then q$=qq$ 
if 1 < n% then 
l=l+1 : 
ch$(1)=#q$ 
call conout(q$) 
goto readch 
if 1l<n% and 
match(q$,return.key+up.arrow+ 
down. arrowttab.key+tescape, | )=0 
then 100 
v$altt! 
for i=l to l 
vS=vS+ch$(i) 
next i 
for i=l+l to nzZ%z 
call conout(" '") 
next i 
call gotoxy(xZ%,y%) 
terminatorS=q$ 
vinput$=v$ 
return 
100 if (qS=del.key or qS=home.key) \ 
: then goto readline 
if not (qS$=back.space or qS=left.arrow) \ 
then goto wrong 


> a a a a a 


A A 


if 1 > 0 then \ 
l=i-l \ 
call lowlipht ; \ 
call conout (back.space) \ 
call conout (".") : \ 
call conout (back.space) \ 
call highlight 
goto readch 
fend 
\ Serer ttst teres sete eee ee ees tes esses e seer s==LINPU TS 
def linputS$(xZ,y%,nz) 
vS= vinput $(x%, y%,n%, alpha) 
linputS=vS , 
fend 
\Seeeeeseeeese=ssee2 Seen ssensesesesessesaeaeeVUPDS 


def vupdS(xZ, y%,deflts, typez). 
integer 1, i 
dim ch$(80) 
n%Z=len(def1tS$) 
readline: 
call gotoxy(x%,y%) 
call lowlight 
for i=l to nZ% 
call conout(mid$(deflt$,i,1)) 
next i , 
call highlight 
call gotoxy (x%,y%Z) 
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1=0 
goto readch 
wrong: 
call bell 
readch: 
q$=coninp$ 
if q$=right.arrow then 
if 1 < n% then qS=mid$(def1lt$,1+1,1) 
else 
oto wrong 
qq$=validS(q$,typez) 
if qq$<>"" then q$=aqq$ 
if 1 < n% then 
l=l1+l :. 
ch$ (1)=qS : 
call conout(q$) 
goto readch 
if 1l<n% and 
match(q$,return.key+up. arrow+ 
down. arrowt+ttab. keyt+escape,1)=0 
then goto 100 
v$si" 
for i=l to l 
vS=v$+ch$ (i) 
next i 
for i=l+l to nz 
call conout (" ") 
next i 
call gotoxy(x%,yz) 
terminator$=q$ 
vupdSev$ 
return ; 
100 if (q$=del.key or qS=home.key) 
then goto readline 
if not (q$#back.space or qS=left.arrow) 
then goto wrong 
if 1 > 0 then 
l=l-i : 
call lowlight : 
call conout (back.space) : 
call conout (midS$(def1t$,1+1,1)) 
call conout (back.space) 
call highlight 
goto readch 
fend 


a aa a a a a aa a 


\set rrr eerste ee SSeS SBE eS SSS SST SATS SSeS ST Sees 
def lupdS(x%,y%,def1t$) 
vS=vupd$(x%, y%, def1ltS$,alpha) 
if len(v$)=0 
then vS=defl1ts$ 
else 
if len(v$)<>len(def1tS) 
then vS=vS+right$ 
(defltS,len(def1t$)-len(v$)) 
call highlight 
call displ (x%,y%,vS$) 
lupdS=v$ 


FEB 


fend 


A AA A A Pat “” 


9 
call eo Tes 
call clreol 
ccol=ccol-2 
i$=linput$(0,0,0) 

fend 


hZyVS+" (R)") 


\ Serene tetees essere er ete se ee ees esse eset esey 
def yesnoz(x%,y%,v$,dz) 

integer i,savcol 

call displ(x%,y%, vs) 

savcol=ccol 


ESNOZ% 


call displyl(0O, 0, " Y/N") 
if d%=yes then 
call gotoxy(0,ccol-3) 
else 
if d%=no then 
call gotoxy(0,ccol-1) 
else 
call gotoxy(0,ccol-2) 
goto getans 
wrong: 
call bell 


a a ee a 


234----- 5------ 
izmatch(coninpS, "nNyY"+return.key, 1) 
if (i=0) or ((i=5) and (d%=none) \ 

then goto wrong 
if i=l then goto nno 
if i=2 then goto nno 
if i=3 then goto yyes 
if i=4 then goto yyes 
rem since i=5 ... 
if d%Z=no then goto nno 
if d%syes then goto yyes 
rem since d=none or other... 
goto wrong 
yyes: . 
call displ(0,savcol," YES") 
yesnoz=true 
return 
nno: 
call displ(0,savcol," NO ") 
yesnoz=false 
fend 


\seteneerten srr es sees ese assess ees sse===VERIFYZ 
def verify%(tmpstrS, patrn$) 
tz=0 
for qiz=1 to len(tmpstrS) 
if match(mid$(tmpstr$,qi%,1),patrn$,1)=0 \ 
then t%=t7%+1 . 
next qiz 


verify%=tz% 
nd 
\ saeemese eer eer sees sees SSeS SSeS ES sees =z=VDATEX 


def vdate%(vddmmyyS ) 

integer dd, mm, yy 

integer days(1) 

dim days(12) 

for qiz=l to 12 
days(qiz)=31 

next qiz 

days(4)=30 

days(6)=30 

days(9)=30 

days(11)=30 

if verify%(vddmmyyS, "0123456789" )<>0 \ 
then vdatez=false : return 

dd=val(leftS$(vddmmyyS, 2) ) 

mm=val(mid$(vddmmyyS,3,2)) 

yy=val(rightS$(vddmmyyS, 2)) 

if mod (yy,4)=0 \ leap year 
then days (2)=29 \ 

else \ 
days (2)=28 

if (€dd<l or mm<l1 or mm>12 or \ 
dd>days(mm)) then \ 
vdateZ=false:return 

vdatesz=true 

fend 


\ Seeeesesesesessaseessssseessssesssss======REVDATE 
def revdateS$(vddmmyyS) 


PRICELESS PROGRAMS 


revdateS= \ 
rightS(vddmmyy$,2) + \ 
midS(vddmmyyS,3,2) + \ 
leftS(vddmmyyS, 2) 
fend 
\ Seer ee eercre reer ees ee eeteerensers ess ste sees ==NINPUT 
def ninput(x%,y%,f1n%,minval ,maxval ,defval ) 
nz=f1lnz% 
if nz=0 then nZ=log(maxval )+1 
getin: 


vS=vinputS$(x%, y%, n%, numeric) 

if len(v$)=0 then 
result=defval : \ 
goto printit 

result=0 

for qiz= 1 to len(v$) 
q%=match(midS(vS, qiz, 

"0123456789" 

result=result*1l0+q%-1 

next qiz 

if (result<minval) or (result>maxval ) \ 
then goto getin 

printit: 

call displ (x%, y%, fmtnumS(result, n%)) 

call gotoxy (x%, yZ) 

ninput=result 


1),\ 
1) 


» 


fend 

| See es erecrereeceeteeer es eees sez esses sees eaNUPD 

def nupd(x%,y%,f1n%,minval ,maxval ,defval,defilt) 
n“Z=fln% 


if nz=0 then nZ=log(maxval )+1 
vdefltS=fmtnumS(deflt, n%) 
for qiz=l to nZ% 


if midS(vdeflt$, qiz, 1)=" " then \ 
vdefiltS=leftS$(vdef1lt$,qiZz—-1 )+"0"+ \ 
rightS(vdefitS,len(vdeflt$)-qiz) 
next qiz 
getin: 
vS=vupdS(x%, y%, vdefltS, numeric) 
if len(v$)=20 then \ 
result=defval \ 
goto printit 
result#=0 
for qiz=i to len(v$) 
q%=match(mid$(v$,qi%,1), \ 
"0123456789" 1) 
result=result * 10+q%-1 
next qiZ 
if (Cresult<minval) or (Cresult>maxval ) \ 
then goto getin 
printit: 


call displ (xZ%, yz 
call gotoxy (x%, y 
nupd=result 

fend 


fmtnumS(result, n%)) 


we 
ww 


\ SRPERe res ere sees ese sree e sr ersse ee see ese se=se=YNOSCAN 
def doscanZ%(patrn$,base$) 

count%=0 

for qiz=l to len(baseS) 

if match(patrnS$,mid$(baseS,qiz,1),1)>0 \ 
then countz2countZ%+1 

next qiz 

doscanz=count% 
fend 


\ SESS ereertsrs terse steers eseeresseesstes==[SVALI DS 
def isvalidS(fnameS) 
while left$(fname$,1)="_" 
fnameS=right$(fnameS, len(fnameS)-1) 
wend 
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if fnameS=""" then goto badn eraeol=chrconvS(termchS$(11)) 
for xZ=l to cent cane) xyleadin=chrconvS(termch$(12) ) 
if (asc(mid$(fname$,x%,1)) < 33 or \ close term% 
match(mid$(fnameS ,x%,1),"*,;<=>?(J]",1)>0) \ return 
then goto badn errl: ; 
next x% close term% 
tmp%=match(":",fnameS,1) print:print "Badly constructed ";termfileS 
if tmp%=1 or tmp%>2 then goto badn stop 
tmp%=match(".",fnameS, 1) fend 
if (tmp%<>0 and tmp%<(len(fname$ )-3) ) \ 
then goto badn \ Steet tere eee ee see SSS SSSA S TSK SK sSBTESReZe=as=TRIM” 
if doscan%Z(".",fnameS$)>1 then goto badn def trimS(vS$) 
if doscan%(":",fname$)>1 then goto badn while right$(v$,1)="_" 
isvalidS=ucaseS$(fname$ ) vS=leftS$(v$,len(v$)-1) 
return wend 
badn: trimS=vS$ 
isvalidS="" fend 
fend 
\meeereteset ete se ce seeSes se ese esses ees==2=Y)ELAY 
\seeeeeseste ses senses es eee see esse sess2=2z==CHRCONVS def delay( length) 
def chrconvS(v$) qi=(length*dlyfactor) 
rem backslash is escape char in match for waitloop=1 to qi 
vS=leftS(v$,match("\\",v$,1)-1) x=abs( 10) 
tmpS=""" next waitloop 
while match(",",vS$,1) fend 
tmpS=tmpS+chrS$(val(leftS(vs, 
match(",",v$,1)-1))) \Seereceeeseeessssstessesssseseeseses===ERR.HANDLER 
vS=right$(v$,len(v$)-match(",",v$,1)) def err.handler 
wend ese : seats ieeaeet ‘ 
t =tmpSt+chrS$(val(v v$=2"Oops. Program error! Code=z"+ 
ital Lapa ye aS+" line="+chr$(i%+48) 
fend call syserr(23,1,v$) 
iz=errx 
\SSesessearassesee estes e esses e=2=s==2==2=2GET. PARMS if aS="EX" then cail syserr(24,1, \ 
def get.parms "MP/M extended error - code " x 
rem if screen control codes file \ +chr$(i%+48) ) 
(STDIO.TRM) exists, use it stop 
termfileS="STDIO.TRM" fend 
term%“=7 
tmpS=" " 


dim termchS$(12) 
if size(termfileS)=0 then return 
if end # term%Z then errl 
open termfileS as term% 
while leftS(tmp$,2)<>"\\"' 

read # term%;line tmpS 
wend 
for qiz=l to 12 

read # term%Z; line termchS(qiz) 
next qiz 
cls=chrconvS(termch$(1)) 
trmini=chrconvS(termch$(2) ) 
fullintensity=chrconvS$(termch$(3)) 
halfintensity=chrconvS(termch$(4) ) 
normvidec=chrconvS(termchS$(5) ) 
revideo=chrconvS(termchS(6) ) 
up.arrow=chrconvS(termchS(7)) 
down. arrow=chrconvS(termch$(8) ) 
left.arrow=chrconvS(termchS(9) ) 
right.arrow=chrconv$(termch$(10 


) 


SCISYS SERIAL PRINTSHARE 


An intelligent 4-channel switch device 
with built-in (64k) buffer 
— flexible configuration — 
copy function, LED display & 
lots more features. 


ss PRICE — $450 + sales tax 


54 539 PITTWATER RD., BROOKVALE 2100. (02) 93-1383, (02) 908-1718 


| dBase 


FIXDBF.BAS — 


The dBase User’s Lifesaver 


dBase can be a real pain in the 
neck, and not just because of its 
limitations — it’s great to use, 
but when you lose a database file 
or its header is damaged you can 
oe in real trouble. 

Yes, it should be backed up ... 
but in the real world that often 
doesn't happen. When a file 
goes, you just have to grit your 
teeth and start typing again. 

A number of programs are 
around which let you fix the rec- 
ord count in the dBase file 
header, but they solve only one 
of the problems. There are others 
— like the possibility of control 
characters. being placed in the 
file, an end-of-file marker (con- 
trol-Z) ending up in the wrong 
place or, worst of all, a power 
failure ‘destroying’ tens or hun- 
dreds of records because the buf- 
fers weren't written to disk and 
the header updated. 

The last of these is the worst; 
if it's happened to you, take 
heart — FIXDBF has recovered 
hundreds of lost records for us at 
Your Computer in exactly the same 
situation in the past. And it can 
fix the other problems, too. 

FIXDBF reads a database file a 
byte at a time and writes it out to 
a new file — either another 
database file or, if the header is 
completely garbled, it can re- 


move the header and write out a 
text file which can then be 
appended to a new database. 

It can be invoked with the two 
(old and new) filenames on the 
command line; otherwise it will 
prompt for the names. It then 
asks several questions: whether 
you want to produce a database 
file or a text file; whether you 
want to replace the record count 
(if you do, it then asks whether 
you want to provide the new 
count yourself; otherwise it 
‘measures’ the file, and supplies 
its own to suit); whether you 
want to filter control-Zs in the 
body of the file; and whether you 
want to filter other control 
characters in the file. If you say 
yes. to filtering control characters 
it asks whether you want them 
replaced automatically (with a 
space) or whether it should ask 
you each time. 

It then lists the database 
structure (So you can tell if it is 
garbled) and asks whether the 
record size contained in the 
structure is correct — if not, you 
can nominate the record size 
yourself. 

It's been a life-saver for us 
many times — hopefully it can 
do the same for you if you're 
unlucky enough to need it. 

Matt Whelan 


PRICELESS PROGRAMS 


Zinclude stdio.dcl rem —- declare globals 


recsize,ccount,zcount,actual.recs 
textfile,clean.finish,dbasefile 


integer 
integer 


integer scan,found,dummies,zfilter,cpmeof 
integer cfilter,fixhdr,disphdr 

integer last.cpmeof ,askhdr 

string in.file.name,out.file.name 

string cr,nullname,crlf,vers,revision 
“include stdio.ass rem —- globals assignments 
cr=chr$(13) crlf=chr$(13)+chr$ (10) 
vers = "2" revision = "0" 

cpmeof = 26 controlz = 31 

maxasc% = 127 dbasefile = 2 

infilex = 1 outfilez = 2 

count%z% = O recountz = O 
working%Z=50 newlinez=0 
zfilter=false cfilter = false 
fixhdr=false : disphdr=false 
dbheader%=521 rem dbase 521-byte header 
zcount=0 ccount=0 
ask.replace=false askhdr=false 
clean.finish=false textfile=false 


coloffset%=15 
copyrecszZ=10000 rem initialise to lge no. recs 
nullname=string$(10,chr$(0)) rem empty dbase fld 


Zinclude stdio.bas rem - i/o and misc functions 


on error goto errhandler 


call get.parms rem —- get terminal control 
rem - codes if they exist 

‘call clrscr 

call displyl(5,25, \ 


"dBase Data File Fixer "+verst"."+revision) 
call disply1(6,20, 
"Matt Whelan, Your Computer magazine") 


\see if filenames specified on command line, 
\else get file names 
aS=command$ 
if aS=""" then 
gosub getname 
else 
gosub breakname 
rem check which operations are wanted 
gosub getchoices 
gosub namecheck 
dim header.array%(dbheader~Z ) 


> a a a 


main: 
if end # infilez then finito 
if end # outfilez then ofile.error 
open in.file.name as infilez 
create out.file.name as outfile~Z% 


gosub read.header 
if textfile then zfilter=true: 
cfilter=true:ask.replace=false 
if not textfile then 
gosub display.header 
if askhdr then 
gosub ask.header 
else 
if fixhdr then 
gosub fix.header 
if not textfile then 
gosub write.header 
gosub copy.database 
finito: 


= > a a a a a a - 
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if clean.finish 
then gosub fini2 
else 
gosub finished 
if not textfile then 
gosub print.stats 
stop , 


getname: 
call displyl(crow+t3, 20, 

"dBase file to read from? ") 
fname$=vinput$(0,0,14,alpha) 
in.file.name=isvalidS(fname$ ) 
call displyl(crow+tl, 20, 

"New file to write to 2 ay) 
fname$=vinput$(0,0,14,alpha) 
out.file.name=isvalidS(fnameS$ ) 
return 


breakname: 
m%Z=match(" " ,aS,1) 
if mz=0 then 
if ucase$(a$)="HELP" then 
goto helpinfo 
else 


- AA” 


> i a ae a 


FIXDBF.BAS continued. 


if not yesnoZ%(crowtl ,coloffset%, 
"Use physical record count (Y),"+ 
"or ask? (N) ",none) 
then askhdr=true 
if yesnoz(crowtl ,coloffsetZ, 
"Filter Control-Zs in the body "+ 
"of the file? ",yes) 
then zfilter=true 
if yesnoZ(crow+tl ,coloffsetZ, 
"Filter other control characters"+ 
"in file ? ",yes) 
then cfilter=true 
if (€zfilter or cfilter) then 
if yesnoZ%(crow+tl ,coloffset%, 
"Ask before replacing control"+ 
"characters ? ",no) 
then ask.replace=true 


A A A AO A > a a aA A 


return 


read.header: 


rem dbase 521-byte header 

for dzZ=1 to dbheader~Z 
header.arrayZ(dZ)=get(infilez) 

next dz 

recsZ=header.array%(3)*256+header.array%(2) 


goto usage recsize=header.array%(8)*256+header .array%(7) 


in.file.name=isvalidS(left$(aS$,m%-1) ) return 
out.file.name=isvalidS(rightS$(aS$,len(aS$)-m~Z) ) 
return display.header: 
print 
namecheck: if header.array%(]1)<>dbasefile then \ 
if in.file.name=""" or \ call displyl(23,1, \ 
out.file.name="" then \ "File is NOT marked as a "+ \ 
goto usage "dBase II database") \ 
mZ=match(".",in.file.name, |) call syserr(24,1, \ 
if m%=0 then \ "Program behaviour may "+ \ 
in.file.name=in.file.namet+".DBF" "be ‘unpredictable'!" \ 
if size(in.file.name)<1 then \ call disply1(23,1," ") \ 
call syserr(23,1, \ call disply1(24,1," ") 
"Can't find file "+in.file.name) \ print:print tab(coloffset%) ; \ 
print : goto usage "Total records "; recs% 
m%Z=match("." ,out.file.name, 1) print tab(coloffset%); “Last update wae 
if m%Z=0 then \ strS$(header.array%(4));"/"; \ 
if not textfile then \ strS$(header.array%(5));"/"; \ 
out.file.name= \ str$(header.array%(6)) 
out.file.name+".DBF" \ print tab(coloffset%):. "Record size meN\ 
else \ recsize;" bytes" 
out.file.name= \ pos“z=8 
out.file.namet+".TXT" print:print tab(coloffsetZ); \ 
if size(out.file.name)>0O then \ "Field Name Type Size" 
print:print: \ for nzZ=1 to 32 . 
if not yesnoZ%(23,1, \ fieldnameS="" 
"Qutput file exists...overwrite?" \ for o%=1 to 10 
,yes) then stop \ if header.arrayZ(pos%+0Z)<>0 then \ 
else \ fieldnameS=fieldnameS+ 
call disply1(23,1," ") chr$ (header .array%(pos%+oZ) ) 
if in.file.name=out.file.name then \ next o% 
call syserr(23,1, \ spacingS=string$(15-len(fieldnameS)," ") 
"Sorry, you can't write the'+ \ if (fieldnameS<>"" and fieldnameS<>cr)\ 
" file to itself"): \ then print tab(coloffsetZ); \ 
stop fieldname$;spacing$S; \ 
return chrS(header.arrayZ(pos%+12)); \ 
: "header. array%(pos%+13) \ 
getchoices: else \ 
if not yesno%(crowt+3,coloffset%, \ n“Z=33 
"Copy database(Y), or produce "+ \ pos%=pos%+16 
"text file(N)? ",yes) then \ next n% 
textfile=true return print 
if yesnoZ(crowtl ,coloffsetZ, \ check.ok: 
"Replace record count ?"+ \ rem ~ routine to allow user to input new 
. " yes) \ rem - header info to go here 
; then fixhdr=true rem - (in case of complete corruption) 
if fixhdr then \ 
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rem - for the moment we will just check 


PRICELESS PROGRAMS 


FIXDBR BAS cominued: 


rem - whether recsize is ok 
if not yésno%(23,coloffsetzZ, 
"Is the record size - " 
+strS$(recsize)+" bytes - okay? 
»ynone) then 
print : ‘print tab(coloffsetzZ); 
"Actual vesord size? 
;recsize 
return 


:input 


ask.header: 
print EabGcororrechay s: 
input 

"New record Seune? 
header. arrayZ(2)=mod(xx%, 256) 
header. arrayZ(3)aintZ(xx%/256) 
copyrecsZ2xxz > 
return 


write.header: 
rem dbase 521-byte header 
for d%=1 to dbheader~z% 
put outfile%,header. a ene! 
next dZ% 
'. return 


copy.database: 
dim aZ(recsize) 
last.cpmeof=faise 
print print print 
print tab(coloffset%-9); 
while recount %<copyrecs% 
for xzZ=l to recsize 


aZ(xZ%Z)=getCinfilez) 
if cfilter then 
if (a%(xZ)<=controlZ% or 
az(x%)>maxasc%) and 
a%Z(xZ%)<>cpmeof 
then gosub goask 
if zfilter then 
if ax(xZ%)=cpmeof then 
gosub check.eof 
else 
last.cpmeof= false 
next x% 
recount Z=recount Z+1 
newlinez=newline%+1 . 
if newlineZ=workingZ% then print: 
print tab(coloffsetZ); 
: newlinez=0 
for x“z=l to recsize 
put outfile%,a%(xZ) 
next xz 
rem - add. .cr/lf for text files 
if textfile then 
put outfilez,13 
put outfilez,10 
wend 
clean. Penishe true 
return 


"working "; 


print "*"; 


check.eof: 
if last.cpmeof then 
goto finito 
else 
last.cpmeof=true: 
return 


gosub goask 


goask: | 
if az(x%)=cpmeof een 
zcount=zcount+l 
else | 
ccount=ccount+l 


> a a an aa a 


A MA a a a 


> a a a 


2A 


MO LM” 


if not ask.replace then 
aZ(xZ%Z)=32 goto 100 
~print:print call displyl (24,1, 
"Pound a control character in record 
+strS$(Crecount%)) 
for iz=l to xZ 
if a%Z(€iz)>control% and a 
then print chr$(a%(iZ)); 
if a%(iz)<= control% then print " *"; 
chr$(a%(i%)+64);" "; 
if aZ(iz%)>maxasc% then print " 
chr$(a%Z€iz)-64);" ". 
next iZ 
print 
if yesno%(24,1,"Replace it 
gosub asknum 
print : print tab(coloffset%); 
return 


aw, 
b 


"\Syes) then 


100 


asknum: 
print 
input "Replace with what? (decimal) " 
aZ%(x%)=new% 
return 


fix.header: 
rem ~ we have to read through the file 
rem - once to determine size! 
rem - a calculation based on filesize 
rem - is inaccurate ... 
print:print:print 
print tab(coloffset~); 
"Analysing data file....please wait " 
if end # infile% then restart 
eof .markers%=0 
while true 
for r%Z=l to recsize 
qz=getCinfilez) 
if q%=cpmeof then 
eof .markers%=eof .markers%+1 
next rZ ; 
actual.recs=actual.recstl 
wend 
restart: 


actual.recs=actual.recs- 

(eof .markers%/recsize) 
copyrecs%#=actual.recs 
rem - close file after dummy read 
rem -— then re-open and re-position for 
rem - actual processing 
close infilez 
open in.file.name as infilez 
if end # infilezx then finito 
for dZ=1 to dbheader~% 

qZ=get(infilez) 

next dZ% 
header .arrayZ(2)=mod(actual.recs,256) 
header .arrayZ(3)=int%(actual. recs/256) 
return 


print.stats: 
print:print:print 
call displyl(23,coloffset%, 
"Input File: "+in.file.name) 
print:print 
call displyl(23,coloffset%,strS(recs%)+ 
was the record count in file header 
print:print 
if not askhdr then 
call disply1l(23,coloffsetZ, 
str$(recount%)+ 


else 


was the number of piveieal records") 


\ 
wy 


%4(izi)<maxasc% \ 


;new% 


\ 
) 
\ 
\ 
‘ 
\ 
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d Base FIXDBF.BAS continued. 


call displyl(23,coloffset%, \ helpinfo: 
str$(copyrecs%)+" records copied") print:print "Help messages to be put here!!!" 
if zfilter then stop 
if zcount>] then print : print \ 
call displyl(23,coloffsetZ, \ usage: 
str$(zcount-1)+ \ print 
' unwanted control-Zs were found") print tab(coloffset%); nee 
if cfilter then \ print 
if ccount>O then print : print \ print tab(coloffset%),; FIXDBF, or" 
call displyl(23,coloffset%, \ print tab(coloffset%); 
str$(ccount )+ \ FIXDBF d:filel d:file2" 
"control characters (not "+ \ print 
"including *~Z) were found") print tab(coloffset%);"where:" 
print: print print tab(coloffset%); \ 
call displyl(23, coloffset%, \ ‘i filel-= source: #1 le. 
“ 
ae ~ Barer \ print tab(coloffset%);"(* and ? not allowed)" 
: : : oP ; print tab(coloffset%); \ 
if fixhdr then print:print: \ file? = destination file, ": 
aa q 
pea tab(coloffset%); Wik. \ print tab(coloffset%);"(* and ? not allowed)" 
WARN ING : print tab(coloffset%); \ 
" F " print tab(coloffset~); \ 
Record count has been rewritten, \ d: ='optional drive identifier" 
print tab(coloffsetz); : \ eran tab(coloffset%); 
- there may be garbage records \ ‘i.e. | FIXDBF a:foobar.dbf b:fubar.dbf" 
print tab(coloffset%); \ seine : is ° i 
" ; Te f 
tan Er ER a \ -BEIRE gab(cotof rset) \ 
"The mew Fale should be PACKed"!: \ soe Source file MUST be a dBase II database" 
print P 
Peeunn ofile.error: 
F print 
pe eee 1 to xZ% print : call syserr(24,1, \ 
at BULEL ey Arce) "Out put file error - can't "+ \ 
pte ae ea "open (or complete)"+out.file.name) 
if textfile then put outfile%,13 \ Stop 
put outfilez,10 erehandl ex 
fini2: ae call err.handler 
put outfile%z,cpmeof sto 
close infileZ,outfilez d P 
return oo 
FIND Fe PL IEDs - OND sac area aha gs arte, Gua ea ae a BY PETER.GROSVENOR. 20/1/85 


This program was created using %* Find duplicate records based on the code 


the dBase Il MODIFY command. 
dBase Il lacks a command to 
search for duplicate records, but 
this program will search a data- 
base file and locate them. In my 
example the search is on a field 
called ‘code (this field must al- %* set up a loop to repeat until the whole file has been processed 
ready be sorted) but it could be Gm the weer decides 46 Sunt 
on any field. STORE t TQ more 


Peter Grosvenor DQ WHILE more .AND. (.NOT. EOF) 
Yallambie, Vic 


%¥ Save variables and restore them when done 
SAVE TO temp 


¥%¥ start at the beginning of the file 
GOTO TOP 


¥* display something for the user to read 
%¥ while the program is searching for duplicates 


ERASE 
? 


Vv Vv 
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PRICELESS PROGRAMS 


dBase 


= tS I am Searching for duplicate records Master” 
STORE !(code) TO oldcode 
SKIP 


IF oldcode = '(code) .AND. (.NOT. EOF) 

? "please note duplicate code, and press any key to CONTINUE" 
SET CONSOLE OFF 

WAIT 

SET CONSOLE ON 

ENDIF 


. ENDDO 


Jow 


I have finished Master” 


ne | “J oe | 


RESTORE FROM temp 


* End of story 


999999000000000000000000000000000000000000 
Introducing Bi-XT-88 

16 bit system at 
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Word Processing. 
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Commodore 64 


DIAMOND MINER 


This program lets you play 
Diamond Dan, a diamond miner. 
Your boss wants you to mine for 
as many diamonds as possible, 
and to speed you up a bit he has 
imposed a time limit within 
which to collect individual 
stones. The limit starts at 14 
seconds, but if you get too fast — 
picking up a diamond in, say, five 
seconds — the boss may lower 
your time limit. 

You must also be careful to 
collect only the white diamonds; 
the green ones are booby-trap- 
ped and will cost you a life. Watch 
out for rocks, as they will also 
reduce your life expectancy. The 
worst of all dangers are the walls: 
bumping into them will kill you 
instantly. 

Added to all these dangers are 
red crosses which, when landed 
on, will move you randomly to 
another area of the mine. 

With this game you can plug 
the joystick into either port. If you 
don’t have a joystick, use the 
following keys instead: 


A = left 
D = right 
W = up 
X = down 


The codes listed below sub- 
stitute for graphics characters on 
the Commodore. 

(C/RT) = Cursor Right 

(C/DN) = Cursor Down 

(RVON) = Reverse On 

(RVOF) = Reverse Off 

(PURP) = Purple 

(LRED) = Light-red 

(LGRN) = Light-green 

(LBLU) = Light-blue 

(YELO) = Yellow 

(CLR) = Clear 

(HOME) = Home 

Paul Vandenberg 
Cabramatta NSW 
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@ REM DIAMOND MINER BY PAUL VANDENBERG 
1 POKE53289,9:POKE53281,9: PRINT" (PURP}" 
2 CH=S°:LY=26:LX=28 

3 TIS="GIPGOIHB" > TL=99G 

4 DS="{C/DNF"RB="(C/RT}" 

5S JS=56326: GOSUB2Z99¢ 

6 S=59272: FORZ=STOS+249: POKEZ, @: NEXT: POKE 
S$+5,9:POKES+6, 4: POKES+24, 15 

198 PRINT"{CLR}"S 

181 PRINT" {(RVON> 


182 FORF=1T020:PRINT" 
TF 
193 PRINT" 


"S$SPC(38)3" "35 >NEX 


{RVOF >" 

195 CL=1:FORF=1TOS: X=INT(RND(G) #38) +1: Y= 
INT (RND (6) ¥290) +1: C=998: GOSUBIGIAD 
196 NEXTF 
169 FORF=1TO15:A=PEEK (197): J1=PEEK(JS):J 
2Z=PEEK(JS+1) > POKES+4, 32 
118 POKES+1,5@0: POKES+4, 129: POKES+4,@: IFT 
I>=TLTHENGOSUBS89S49 
111 CL=@:2C=32: X=LX? Y=LY: GOSUBIGOGO: IFA=9 
ORJ1=1260RJI2=2549THENLY=LY-1 
1i2 IFA=230RJI1=1250RJ2=253THENLY=LY+1 
113 IFA=1GORIJ1=1230RI2=251 THENLX=LX-1 
114 TFA=180RI1=1190RI2=247THENLXK=LX+1 
115 P=LY#40+LX>L=PEEK (S5296+P) 
116 POKES+4, 32: IFL=4THENSS6B 
117 IFL=6THENCH=CH-1:POKES+1,8:PQKES+4, 3 
SI FORZ=1TOS@:NEXTZ: IFCH=OTHENSOSS 
118 IFL=1THENPT=PT+19@:CT=TI:TIS="999899 
"3S GOSUBS@6G6O:IFCT>369THENTL=TL-29 
119 IFL=STHENCH=CH-1:POKES+1,8:PQKES+4,3 
SIFORZ=1TOS@2NEXTZ: TFCH=GTHENSSDOS 
120 IFL=19THENGOSUBS95S@: LX=INT (RND (8) ¥38 
V+ LILY=INT (RND (6) ¥206) +1 
121 CL=149°C=42:X=LX: Y=LY: GOSUBIGSIS 
122 IFTIS="G8G6015" THENGOSUBRSSOEG 
124 PRINT" CHOME} (RVON} CPURP) "TIS; TAB( 16) 
3"SCORE"SPTs TAB(26)3 "MEN LEFT"5CH 
129 NEXTF 
13@ CL=1:FORF=1TO1I? X=INT(RND(@) #235) +1: Y= 
INT (RND (8) ¥20)+1:C=99: GOSUBIGSEE 
131 CL=6:FORF=1T09: X=INT(RND (6) #38) +1: = 
INT (RND (0) ¥2@6) +12C=2249: GOSUBIOGAG: NEXTF 
132 CL=S: X=INT(RND(@)¥38) +12 Y=INT (RND(@) 
¥29)+1°:C=96: GOSUBISSOS 
133 IFRND(@) >. 8THENCL=1@6: K=INT(RND(@)¥238 
Y+1°Y=INT (PND (8) #29) +1:5C=86: GOSUBRIGESA 
168 GOTO18&9 
2088 REM TITLE PAGE 
2081 PRINT" {CLRi"53 -FORZ=1TOS: PRINTDS;3 > NE 
ATZ 
2E62 PRINT"CPURP:"; 
2893 PRINT"{RVON} WIC/RT3 {C/RT3IF WC 
/RTIWIC/RTIICC/RTIFLC/RT IP WEC/RTIWMIC/RTG 
{C/RT} {C/RTF WW" 
2869 PRINT" {RVONG 
/RTZCIC/RTS (C/RT3 
tC/RT}# (C/RT? C(C/RT 

{C/RT3 {C/RT3 " 
2685 PRINT"CRVONS (C/RT3 
/RTZIC/RT} {C/RT? CC/RTGLC/RT 

{C/RT? (C/RT (C/RTI IC RVOF IS CRVON} 

CC/RTS " 
26906 PRINT" (RVONS 


{C/RT} (C/RTFCIC/RTF CC 
{C/RT} CRVOF INC RVONG 
CRVOF INC RVONZ CC/RT 3 


{C/RTFC(C/RTD (C 
CC/RT > 
{C/RT3 


{C/RT 3 


JRTFCC/RT CC/RT? CC/RTF CC/RTICC/RTZ CC 
SRT? (C/RT? {C/RTF CC/RTILC/RTF C(C/RT3 CF 
CP ROE Se 


(C/RTFLC/RTF CC. 


2087 PRINT"{RVON? {(RVOFIF (RVON} {C/R 
T} {C/RT} CC/RT} C(C/RTICC/RT? CC/RTICRVO 
FIW{RVON} (RVOFIFP{C/RT}C(RVON): C(RVGF? (C/ 
RT} (RVOFI® CRVON} {(RVOFDP" . 

2098 PRINT: PRINT 

2809 PRINTTAB(1@) 5 "{RVONI WC/RTI(C/RT IFS 


C/RT3 CC/RTIWMC/RTISLC/RTX (C/RT3 €C/ 
RT> ‘" ‘ | 
2010 PRINTTAB(1@)3;"{RVOQN} {RVOFI\/“CRVON} 


{RVOF I\C(RVON? 
{C/RT} 


{C/RTI{C/RT3 
£C/RTII(C/RTIILC/RT} 


{C/RT3LC/RT} 
£C/RT} (C/RT} 
2611 PRINTTAB(1@)3"{RVON} {(C/RT}{C/RT} £ 
C/RTFLC/RT} (C/RTPIC/RT3. (C/RTI{RVOFINCIR 
VON}? (C/RT} {C/RT3{C/RT} (RVOFIP" 

2012 PRINTTAB(18)3"(RVGN? (C/RTI{C/RTY 
CURTFIC/RT? (C/RTIKC/RT? (C/RTZKC/RT} CC 
/RT} CC/RTII(C/RTZCC/RT?) (RVOFINCRVON}" 
2O13 PRINTTAB(1G8)3.""{RVON} (C/RTILC/RT3 
C/RT} CC/RT} {C/RTII(C/RT}{RVGFIS CRVON 
; CC/RT} (C/RT3(RVOF 3" 

2@15 PRINT:IPRINT"{C/RTIC(C/RTILC/RTIZ{C/RT 
3£C/RTI{LGRN}BY PAUL VANDENBERG" 

2A16 PRINT:IFRINT"(LREDIPRESS A KEY TO ST 
ART{(PURP?”" 

2G17 GETAS: IFAS=""THENZ@17 

2818 RETURN 

SG@90 POKES+1,5@:POKES+4, 17: POKES+4, 16:FO 
RZ=1TOQ2@:NEXTZ 


SO@1 POKES+1,6@:PQKES+4, 17: POKES+4, 16: FO 
RZ=1TO20:NEXTZ 

SGG2 RETURN 

BIG FORF=48TO7@STEP2: POKES+1,F:POKES+4, 
S3:NEXTF: POKES+4, 32: RETURN 

7999 REM NEXT LEVEL MARKER"" 

S90G REM TIME UP 

SO@1 PRINT" (HOME3"3; ;FORZ=1TO23:PRINTDS$;: 
NEXTZ: PRINT" (PURP}YOQU WERE A BIT SLOW" 
S082 POKES+1,6:POKES+4, 33: FORZ=1TO209G:N 
ExXTZ: CH=CH-1: IFCH=STHENS GES 
S983 PRINT"{C/UP} 

E+": POKES+4, 32 

8884 TIS="GISGGGI" : RETURN 

85908 RETURN 

9090 PRINT"{CLR}YOU’RE DEAD!!!" 
99G1 GETAS: IFAS< >""THENIS@1 
99682 PRINT" {LBLU}YOU’VE ACCUMULATED A TO 
TAL SCORE OF" 

99GBS PRINT: FORZ=1TO28:PRINT"{C/RT3{(C/RT} 


{HOM 


C/RTIILC/RT IC C/UPI{YELO} "5 PT: FORG=1TO49: 


NEXTGSPRINT"{C/RT3CC/RTI{C/RTI{C/RTI (C/U 
P3}{GRNI"5PT 

9964 POKES+1,5:PQKES+4, 33: POKES+4, 32 
99GB FORG=1TOS8:NEXTG: NEXTZ 

9OGG6 PRINT: PRINT" {LGRN}WOULD YOU LIKE AN 
OTHER GO? (Y/N)" 

POG? GETAS: IFAS=""THENISS? 

9968 IFAS="Y"THENCLR: GOTOL 

9889 END 

190900 P=Y¥*¥40+xK:> POKEP+16249,C:POKESS296+P, 
CLS RETURN 


Commodore 16 


COMPATIBILITY 
ANALYSIS 


The program displays a com- 
patibility table for two people 
based on the biorhythmic cycle 
theory. The table consists of 
physical cycle, sensitivity cycle 
and cognitive cycle compatibility. 
Although it was written on a 
C16, the program should also run 
without modification on the Plus 
Four. 
Mark Wilkinson 
Heyfield VIC 


PRICELESS PROGRAMS 


14 REM RRERREERERERERERAERERR EEE S 
24 REM # COMMODORE 16 * 
34 REM *® COMPATABILITY AHALYSIS # 
446 REM # AUTHOR : i. WILE TSO * 


65 REM 
7S DIMAL 369. 81 soo Mecles. 08ero. Atle. 
86 COLOR, 3.2: COLOR4, 6.3 


144 THMPUT"EQUBHMAME OF PERSOM Lee eee MUSE 


156 INPUT "GBIRTHDAY COD, fate es De 


166 E1=M:F1=0'61=7 ‘GoSuUBeoe 
176 22=T:K1=J+1 
159 INPUT" SIGGHAMNE OF FERSOW 2.000 ME 


196 INPUT"GEIRTHDAY COD. MM. sy. eM 


208 E2=M:0e=D > Ge="': gosubeee 
210 PZ=ABS¢ 22-To Ke=J4+1 
2a PRINT sy" 
23@ PRIHTTABCS 3°" — 
240 FRIMHTTABCE)" [COMPATABILITY AMAL YS TS 
250 FRINTTABCS>" * 
FRIHT TABS C46-LEH Cut so coos Me 
PRIHT TAB C4H—-LEHC RE ace aes a! 
FRINT 

PRINT so We": G'S 

JeK 1 GOSUBS Se > PRIM"! 

M= Ei: GOSUBrSo 

PRIHTFI". "G1 
S38 FRIMT" BEd' se" i": 
S48 J=k2: GOSUB S36: "PRINT" any 
356 M=E2: GUSUBrSse 
368 PRINTDe "G2" ate" 


h 
aS 
Gm 


Rae Mi Ga wh 
i Go Ry ee 


203 02 Oho ha Ra 


3° 2=PFe 

386 PS=HESCTIHT COC eese-IHT st 2e eo) tHe aa 
390 SSSABSCIHT Oct! eao-THT eee eines 
qu CS=HBSCIHT COC essen THT ee sas oes 
414 PS=AES" 1 Ba- 0 SeP se Lee SS 3 

420 SS=ABS LBB OC Seo Se LA oO 

4356 COSHBS! LOM OC SECS Ie LOB SS 


449 PRINTTABCS 3" ti-———_—_—_—___—_" 
456 PRIHTTABS 102 "SPHYSICAL.....8"; 

466 PRINT USING FOS: FS 

470 PRIHTTABRS 16>" @SEHSITIVITY.. 

450 FPRIHT USIWG FOF SSS 

PRIMTTAE¢ 163 "SSCOGHITIS (Eee. 
FRIMT USIWG Fo#sc5 

FRIHTTABRC 33 "'i-— SEEDER 
ASS CP S+554+05 9-3 

FRINTTABS 16> "SAVERAGE......8"; 

FRIHMT USIMG FOE) AS 

FRIHTTHE« 39" die--— Cen Te ce TOT 
FR IHT " sleletary"' 


= 
th 


Mo We Cy to a 


i} 


a 


GETEE'S AS 

Pre THT Sy". RU 
Wysy'-1ee 
Wl=THT viedo 


MF WILL CUA CA CA CA 
ee GO fa Pe 
he) 


mt yt 


96 FORT=17T012: READAC 12: HEXT 

106 DATAS. 31.55.98. 128.151.151.212, 243, 273, 3b 
116 GOSUEsoe 

126 ‘Ws FOS="CHHH. HH" 

136 Y="'+1 


FRIHT MW PRESS AMY Key FOR AWHOTHER AMAL YSIS 


wa ‘ 


10! 


Commodore 


Compatibility Analysis.continued. 


=, 


eas WO oh Geren 
MSelTHT ccs 
B= 

TFL #4241 THEME Se 

IFS 1's TTHEHE si 
Trice on HE. “1 THEMES 
Ka 1 

TH 365847 T+ Oe +ise kK 
T=T+Ae to +0—1 
IFMASTHEH YS se 
T=T+k 

IFIMTS 1+ “he 

IF IM 2THEHF Be 
TaT- 1 
JET-Ve THT Tea 
RE TUR 

PRIM TIME Choc RE TURE 
PRIHWTUE* Jo00 -RETURH 
Fok IJ=i TOS: RERDMS« 


ar ae a eon een oy 


a i 


—_ 


oa] 2 ae 


—, 


3 Oy Ty 


ae 
i tsi 


a! 


= 
=,’ 


wv 


oY 
vt 


j 7p 7s} 7b 
ofa 
rm mi ft 


Ply oo 3 Oy Le Ca Ro 


he 
feaha 
“! mi mr 


a ee 
ee 


“WL ATHEM Pee 


3} 3 


“d 


6) Wes hy Te Oe mE map me) mp 
highs HW gay LBL 


— 


oe eee : 
on *. “. x ~ 


mr Mme Me Ty Te 
ai Eat iy! eS 


ma? 


JO HEAT 


a. 


DATAOCT . Hin. TE 
DATAWEDHES DAY. THURSDAY 


—, 
ist bi 


You have a choice of drawing tools: pencil, 
brush, spray-can, fill can, eraser. 

Draw points, lines, boxes, elipses or 
handcrafted drawings. 

User-definable patterns — defined areas may 
be filled or you may brush them on. Text and 
graphics can be combined; perfect for 
overhead projector artwork, etc. 

“Cut & Paste” facility. Define your own icons 
and copy them. 

Zoom editing — allows you to edit your art in 
fine detail. 

Pictures can be saved on or retrieved from 
disk, or printed out. 

BEESLIDE - a variable speed slide-show 
package; user defined order and files. 

Min. Requirements: 32k Microbee, CP/M, 

1 disk drive (40 track DSDD}, Epson 
compatible printer (option). 


| want to BEEARTISTIC too! 


Cheque (J Bankcard () Mastercard OVISAC[ | [| JET | LL Sees 


BEEARTISTIC Packages @ $49.95___.__ 
Postage and Packaging @ $3.50__ 


INI ence ia ete SIGNATURE:.. 
POD RE Soe sf crcan tart nares ied sateen eed end abanes 
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MoFORI=17TO0r  REARDDE © Jo: MEAT RE TUR 
@ DATAJAM. FEB. MAR. APR MAY TUR TUL 


Pe ereos ua iek eisai a. EXP: 


So TATASUMDAY . MOMDA. TUESDAY 
wel REM 

sr REM 

pou REN eee == rae 
B90 FEM CONTROL CODES 
gaa REM IM THIS LISTING 
21 Ree eae 
920 FEM "C) = CLEAR 

938 REM "a = DOW 

3460 REM “a = BLU 

250 FEM "= FUP 

960 REM "al = ORMG 

27a REM "li = GRY 

356 REM "Me = FLASH OH 

390 REM "mf = FLASH OFF 
BOO Relimrs ana aimee a 


Allis. SEP 


sFRIDA', SATURDAY? 


BEEARIISUIG» 


THE ONLY A FEW MENUS 


GRAPHICS PACKAGE 
AVAILABLE FOR 
THE 
MICROBEE 


1 | uN 


DESIGNED 
AND 
DEVELOPED 
IN 
AUSTRALIA 


tairPrti-1|@ Ieee | ed | 


“—. ee ee 


7 EXITEK 


PO. Box 348, Balwyn North, Victoria. 


Australia. 3104. (03) 846 3500 


JOTATE P/CODE 


eS SO 


Microbee “i 


MOTORBIKE TRIALS 


Motorbike Trials simulates a rider 
travelling a twisting 100 kilometre 
course. 

The rider starts at the top of the 
screen facing down. The ‘A’ key 
moves him to the player's right 
and the ‘\’ key moves him to the 
player's left. 

Every few kilometres the rider 
moves toward the bottom of the 
screen and is followed by another 
rider (you always control the front 
one). If your rider reaches the 
bottom of the screen, you've 
completed the course — it’s very 
hard! 

Good luck ... and watch for 
slow-moving cars. 

Ken Rowe 
Dernancourt SA 


PRICELESS PROGRAMS 


00090 GOTO 700 © 

00095 CLEAR: RESTORE 

OO100 F=63488+49416 

00110 FOR A=F TO F+16*8-1 

00120 READ B:POKE A.B 

00130 NEXT A : 

00140 DATA 36, 255, 255, 255, 60, 36, 189, 189, 126, 126, 60, 60, 189, 255, 189, 24 

00150 DATA 15,15,15,15, 15, 15, 15, 15,15, 15, 15,15, 15,15,15,15 

00160 DATA 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240, 240 

00170 DATA 0,16, 16, 16, 40, 56, 124, 108, 186, 68, 56, 16, 16, 16,9,0 

OO1BO DATA 0,0, 142.4, 30, 46, 73, 50, 28, 32, 32,64,128,0,0 — 

00190 DATA 0,0, 128, 64,32. 32,124,114, 73,42, 20,4, 2,1,0,0 

00200 DATA 8,137, 72,34, 20, 93, 46, Bb, 28,99, 22, 236, 26, 41,68, 22 

00210 DATA 15,15, 15,15, 240, 240, 240, 240, 15, 15,15, 15, 240, 240, 240, 240 

00220 CLS: R=1:N=33:E6=5 

00230 GOSUB 520 

00240 IF RND#1<.2 THEN LET R=INT(RND*3) 

00250 K=K-1+R:Z=0 

00280 IF FEEK(258)=28 THEN LET N=N+i:Z=2 ELSE IF PEEK (258)=1 THEN LET N=N-1:Z=1 

00290 PCG:POKE 61440+ (Q%64) +N, 180+Z: NORMAL 

00300 IF K>20 THEN LET K=20 ELSE IF K<-29 THEN LET K=-29 

00320 IF RNDK2<.112 THEN 460 

COZ30 PRINT TAB (30+K) 2:PCG:PRINT"22"3:NORMAL:FPRINT SPC(E) ::PCG: PRINT" 32": NORMAL 

00340 IF PEEK (414404 (6480) +N) £180 AND PEEK (61440+ (64%Q) +N) 2175 THEN 270 

00250 S1=Si+1:IF S1=100 THEN GOSUB 800 

00360 GOTO 240 

00370 POKE 61440+ (6440) +N, 182:FOR I=1 TO 22:IF RND*1<.55 THEN OUT 2,59:0UT 2,45: 

NEXT I ELSE NEXT I 

OO3BO PLAY 0, 1322,5:19,5:22,5319,5322,5319,5 

00390 F=QX100+INT(S1):CURSIL:PRINT"YOU COMPLETED ":INT(FLT(F)/1500%100)2" Km OF A 
100 Km COURSE. "\"AND FICKED UF ANOTHER “;Q;"" RIDERS"\"1] ANOTHER GAME"\"2) END" 

00400 A1S=KEY$:IF A1LS="" THEN 400 | 

00410 IF A1%$="1" THEN 95 ELSE IF A1$="2" THEN PRINT\ "BYE": END 

00420 GOTO 400 

00430 PRINT TAB(30+K) 3:PCG:PRINT"22"3:FORI=1 TOE: PRINT"@": sNEXTI: PRINT" 33": NORMAL 

00440 PLAYS. 525055755590 58 75 80 585, TICURSIEPRINT" YOU HAVE COMPLETED THE 100 Km 

COURSE WITH 14 RIDERS"\"THAT IS AN EXCELLENT ACHIEVEMENT! ""\""13 ANOTHER GAME"\"23 
END" :GOTOQ400 

00450 END 

00460 IF RND#1<.35 THEN 490 

00470 W=INT (RND& (FLT (E) ) +1) :PRINTTAB(30+K) ¢:PCG:FRINT"22": sNORMAL: PRINT SPC (W-1) 
:PCG:PRINT"1"3 s NORMAL: PRINTSPC (E-W) 3: PCG:PRINT" 33": NORMAL 

00480 GOTOS40 

00490 IF RND*i<.5 THEN LET E=E+1 ELSE LET E=E-1 

ooS00 IF E<4 THEN LET E=4 ELSE IF E>8 THEN LET E=8 

00510 GOTO 330 

00520 NORMAL: FOR I=1 TO 15:1F I=2THENS70 ELSE PRINT TAB(30)::FCG:FPRINT"22"3:NOR 

MAL:PRINT SPC (5) ::PCG:PRINT"33":NORMAL:NEXT I 

00530 POKE 61440+N, 180 

00535 CURSS.2:PRINT"<== ‘A’"::CURSS4, 2:PRINT"‘\? ==>": :CURSIS, 16 

00540 FOR I=1 TOS:FOR D=1 TO 25:QUT 2,59:0UT 2,65:FOR G=1 TO D 

00550 NEXT G:NEXTD:NEXTI 

00560 RETURN 

00570 PRINT TAB(30)::PCG:FRINT" 228888823":NORMAL:NEXT I 

OO700 CLS:PLAY 16,2516, 2:13.43 16,4318, 23 18, 23 16.43 18,43 18,43 20, 2318, 22316, 2316,4 

00710 INFUT "INSTRUCTIONS ? ";T1¢ . 

00720 IF T1$="YES"ORT1$="yes"ORT1$="y"ORT1$="Y" THEN730ELSE100 


00730 CLS: FRINT" KX MOTORBIKE TRIALS *x"\" 
2S 22222235522 ¢ 2 SAN 
00740 PRINT" You are set a difficult 100 km course."\"Along the way you are joi 


ned by more riders."\"You will lead these riders through the winding corners" 
OO750 PRINT"And past slower cars."\\"The direction af the motorbike is to the bo 
ttom of the screen"\" ‘A’ moves the bike to your left & ‘\’ to your right." 

00760 FPRINT\"The road changes width as well as direction."\\"If you can pick up 


another 14 riders and reach the bottom of "\"the screen, you have completed the 


course (very hard!'!)" 

00770 INFUT" HIT <<RETURN>> TO START": T4$% 
00780 GOTO 100 

QO0800 Q=Q+1: IF FEEK (258) =28THENLETN=N+1 ELSE IF FEE (258) =1 THENLETN=N-1 

020810 S$1=0 :IF Q=15 THEN 430 

QOOB20 RETURN 
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Microbee ip 


CLOCK 


Here is a program for all the egg 
burners among you. Just set the 
clock and alarm for perfect eggs, 
or use the stop watch for timing 
those three-hour chess games. 
The letter ‘S’ will stop and start 
the stop watch; press ‘R’ after the 
watch is stopped to return to the 
menu. 

The program is quite easy to 
convert to other machines, given 
that ‘Lores’ and ‘Hires’ select gra- 
phics modes for the borders 
around the outside of the menu 
and the introduction. All ‘Plots’ 
can be left out, or your own 
computer's graphics commands 
may be substituted. CLS clears 
the screen. The KeyS is the same 
as InkeyS on most other mach- 
ines. The rest is fairly universal. 

Jeremy Fenton 
Lismore NSW 


$0190 REN HHEESEHEEHEEE Ee 
S118 REM #4 CLOCK BY J. FENTON H 
99128 REM 44 FOR PUBLIC USE H 
99138 REM #4 LAST UPDATE 2/3/85 H 
99149 REN HHHHEHHHEEHEC HEE 
99158 LET X=6 

O6140 REN HHHEHHEHEHHE INTRODUCTION SHHHHHHEHHEEEHE 
98178 CLS 

99189 HIRES 

98198 PLOT 9,8 TO 9,255 TO 511,255 TO 511,8 TO 9,8 

862868 PLOT 199,158 TO 58,15@ TO 5,298 TO 198, 208 

90218 PLOT 128,288 TO 126,159 TO 179,159 

86228 PLOT 198,288 TO 19,158 TO 249,158 TO 248,288 TO 198, 208 
90239 PLOT 319,289 TO 269,299 TO 268,15@ TO 319,159 | 
80248 PLOT 338,288 TO 338, 159:PLOT 338,175 TO 398,288: PLOT 331,176 TO 399,158 
99259 CURS 49, 15:PRINT'PRESS '*RETURN’'® 

99268 A3$=KEYS:IF A3$="" THEN GOTO 268 

99278 GOTO 728 

90288 REM HEHEHE SET CLOCK SHHHEHHEHHE 
98298 CLS 

@9388 CLS:CURS 21,7: INPUT"ENTER TIME)-HOURS"H 

89319 CURS 32,8: INPUT"-MINUTES*M 

89328 CURS 32,9: INPUT*-SECONDS'S 

$9338 RETURN 

90340 REN HEHEHE CLOCK (HEHEHE 

99358 CLS 

99368 GOSUB 578 

99378 GOSUB 628 

9838 GOSUB 638 

98398 GOSUB 648 

gg4ag S=Stl 

90410 FOR AB=1 TO 31 STEP. 1987899 

86428 NEXT AG 

49438 GOSUB 449 

g6449 IF S(6@ THEN 496 

ga45@ S=g 

98468 SOSUB 648 

90470 W=Nel 

99488 GOSUB 638 

9a499 IF NCG® THEN 499 

gg508 H=6 

Q951@ GOSUB 638 

99528 H=Ht! 

Qa538 GOSUB 428 

ga54@ IF HC13 THEN 496 

99558 H=! 

99548 GOTO 378 

99578 CURS 28,7:PRINT'HOURS MINUTES SECONDS® 


Ww 


PRICELESS PROGRAMS 


Microbee 


a 


88588 CURS 36, L5:PRINT"PRESS ’’R’’ FOR MENU" | 86918 LET 2=Z+1 

$0596 IF Q=H AND K=M AND V=S THEN PLAY Ap lp1sppghpaplppapapasappapapaphpapis 88928 CURS 34,82 PRINT Z 

98668 RETURN 86936 CURS 25,8: PRINT X 

88618 REA (HHHAHHHEEHHT «ALARA HAHHEE 89948 ASS=KEY$: IF AS$="S" OR A5$="s" THEN GOTO 978 

68628 CURS 21,8:PRINT H® ": RETURN 66958 IF Z=68 THEN LET Z=@: X=X+1: GOTO 879 

98638 CURS 29, 8:PRINT HM" *S RETURN 98568 GOTO 899 

99649 CURS 37,8:PRINT S" "\IF @=H AND K=W AND V=S THEN PLAY Lslplslplplplshsisisl © 98978 ASS=KEY$:IF AS$="" THEN GOTO 979 

86659 ASS=KEY$:IF AS$="R" OR AS$="r° THEN GOTO 728 68988 IF AS$="S" OR AS$="s" THEN GOTO 958 

$6668 RETURN 66998 IF AS$="R" OR ASS="r" THEN LET Z=8°LET X=8:60T0 728 
$9678 REA JHHHHHHEHEGHHH,:s SET ALAR HEHEHE 9i8ss GOTO 976 


SG68HCLS: CURSZ1,8:INPUT"HOUR >"5@ 

68699 CURS 21,9: INPUT"MINUTES >°5K 

69768 CURS 21,18: INPUT°SECONDS )";V 

68716 RETURN 

89728 CLS 

99739 REM SHHHHHEHHHHE OENU HARE 
96749 LORES:PLOT 9,8 TO 8,47 TO 127,47 TO 127,68 TO 8,8 
98758 CURS 38,5°PRINT"MENU” 

69768 CURS 18,7: PRINT*SET THE CLOCK : S' 

$9778 CURS 19,9: PRINT’STOP WATCH =: W 

88786 CURS 18, 11°PRINT"SET THE ALARM : A’ 

$9796 CURS 19, 13°PRINT*’START CLOCK : C" 

§@868 ASS=KEYS:IF AS$="" THEN GOTO 888 

99618 IF AS$="S" OR AS$="s" THEN GOSUB 388 

88828 IF AD$="a" OR AS$="A° THEN GOSUB 688 

69838 IF Ad$="C" OR AS$="c° THEN GOTO 358 

86848 IF AS$="¥" OR ASS="w" THEN GOTO 878 

$9859 GOTO 728 

99868 REN HHHHHHHHHHHHHE STOP WATCH SHHHHHHHHHEHH 
89876 CLS 

98889 CURS 26,6°PRINT" MINUTES SECONDS ": GOTO 999 
$8896 FOR P=1 TO 888:NEXT P 

80986 ASS=KEY$: IF AS$="S" OR AS$="s" THEN GOTO 978 


AOI NE 


Electronics Today is Australia’s dynamic 
electronics monthly. It has more special 
features, new and exciting projects to 
build and a wealth of information on 
components, equipment and new 


technology. Regular features include 
Australia’s top hi-fi reviews and news 
on communications and computing. 
Buy your copy now from your local 
newsagent. | 
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VZ200 


NUMBER 
SEQUENCE 


This program prints various se- 
quences of numbers, each ending 
with a blank. You must enter the 
next number in the sequence — 
the computer indicates if your 
entry was correct. 

A series of ten questions is 
asked, then your score is given. 
Because the program is written 
in standard Microsoft BASIC, it 
should be easily transported to 
other computers. The random 
number statements in lines 120- 
140 may need modification, 
according to your particular ver- 
sion of BASIC. 
lan Thompson 
Collaroy Plateau NSW 
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"HEHEHE TE ETE ETE TE ETE HEHE TE TE HEHE EEE TE EEE HE EE HE 

“* NUMBER SEQUENCE * 

‘* FOR THE UNEXFANDED V2-2@@ + 

“# TAN THOMPSON - COLLAROY + 

* HEHE SE TEESE FE JE IE HE HE 38 HE HE EE SEE JE JE SE I EE IE SE 98 Ht He 

10 CLS: PRINT@1@4, "NUMBER SEQUENCE" 
12 FRINT@S25," IAN THOMPSON, COLLAROY" 
15 PRINT@485,"FPRESS ANY KEY TO START 
20 IF INKEY#="" THEN 2@ 

2iloIF INKEY#="" THEN 20 

fo CLS:PRINT" NUMBER SEQUENCE 
30 PRINT"THIS FROGRAM WILL PRINT VAR 
25 PRINT"SEQUENCES OF NUMBERS, EACH 
4@ PRINT"ENDING WITH A BLANE (--~---). 
2 FRINT"WHEN YOU SEE A “°°, TYFE IN 
3@ PRINT"NUMBER THAT YOU THINK THE " 
25 PRINT'COMPUTER MIGHT HAVE FRINTED 
68 FPRINT"PLACE OF THE RBLANE." 

7@ PRINT 


1 
> 
i 
rT 
= 
4 
sa 


tt 


"SPRINT 
Tous" 


THE" 


InN " 


TS FARIIN T "! 26 96 26 26 Se Fe FE HE EE HE EE HE EE HEE EE HE EE 


8@ LES R=@ 

90 LET W=@ 

10@@ FOR T=1 TO 1@ 

118 FRINT"PROBLEM"; I 

120 LET A=INT (1@*#RND (@) +1) 

130 LET BR=INT (10#RND(@) +1) 

14@ LET G=RND(3) 

150 IF A>B THEN 285 

16@ IF G=1 THEN 178 

162 IF G=2 THEN 210 

164 IF G=2 THEN 258 

170 LET X=2#A+3#B 

18@ FRINT As", "sBs","sAt+Bs", "3s At2#EBs 
194 INPUT Y 

200 GOTO 41@ 

21Q@ LET X=A#A*R*¥R*B 

220 FRINT As" ,"sBs","sA*Bs", "5 BAYER; 
25@ INPUT Y 

<4@ GOTO 410 

200 LET X=—-B 

260 FRINT As", "sBs","sB-As","3-As", 
270 INFUT Y 

“B@ GOTQ 418 

285 IF G=1 THEN 220 

290 IF G=2 THEN 240 

S@0O LET X=A#5S 

S1@ PRINT As", "s 2A US THAT "ST 4HAS 
320 INPUT Y 

3328 GOTO 410 

340 LET X=16#A 

35@ PRINT As", "3 2#AS", "3 4A", "3 BAS 
26@ INPUT Y 

410 IF X=Y THEN 450 


420 PRINT"NO: THE COMPUTER'S SEQUENCE HAS ":x;"." 


420 LET W=W+1 

4408 GOTO 470 

45@ PRINT" THAT'S RIGHT!" 
460 LET R=R+1 

47@ PRINT 

48@ NEXT I 

4485 SOUND 15,5 


| 


F pm 


3@@ PRINT"SCORE: "sR3;" RIGHT,"3W;" WRONG 


505 PRINT: PRIN] 'se222223222225525252= 
21@ PRINT" PRESS <SPACE> FOR ANOTHER SET OF"; 


920 PRINT" QUESTIONS." 
53@ AS=INKEYE: IF AF <= " "THEN S30 
5920 RUN 
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PRICELESS PROGRAMS 


MAILIST 
Mailist is a mailing list program 
for TRS-80 Models I, Ill and IV 


with 16 Kbytes of RAM. It stores 
up to 250 names and addresses 
on cassette tape for later retrieval 
and printing. 

For those of you who have ma- 
chines with 48 KBytes of RAM, a 
version for up to 1100 names and 
addresses with a built-in lower- 
case driver is available for $10, 
cassette supplied. 

Both programs are menu-dri- 
ven and a help sequence is in- 
cluded in the program (function 
8). If you have any questions or 
wish to purchase the 48 Kbyte 
version, write to David Minehan, 
64 Young Road, Lambton East 
2299. 

David Minehan 
Lambton East, NSW 


10 ’ MAILIST. 

20 ’ PROGRAMMER: DAVID KEITH MINEHAN. 
30 ’ SYSTEM TRS-80/SYSTEM-69. 

40 ° RAM 16K. 

30 ° LANGUAGE: BASIC. 

60 ’ PROGRAM DESIGNATION: BUSINESS. 
78 ° | 

8@ ’ PROGRaM DESIGNED TO TAKE NAMES, 
98 ’ ADDRESSES, AND PHONE NUMBERS & 


108 ’ STORE THEM ON CASSETTE-TAPE 
11@ ’ DATA FILECS). 
120.’ 
220 CLEARSS@O' CLS ' POKE16396, 23 
'DIMNSC 258 >, REC 258 ). AMC 258 0, POC 258 D 
230 | 


PRINT TABC30);"MAILIST": PRINT! PRINT: ’ XXXMAIN MENUXKX ’ 
240 
PRINTTABS 10 "CREATE FILECSd.cceccnecevuscenncevssd 
250 PRINTTABC IQ "VIEW FILECS).sccevcccuccnvssccesese 
260 PRINTTABC 10 >"UPDATE FILECS de ccccenuvcussnesenseeed. 
270 PRINTTABC IO "SAVE  FILECS ce scenenveccvcnccssrned™ 
CBO PRINTTABC IO "CALL FILECS). ccc censcececcneucsveee 
290 PRINTTABC 18 >"VERIFY FILE(S). ccccveucccensenesneesO” 
380 PRINTTABC 1Q."PRINT FILECS). ccccccnccucccscecsenel 
312 PRINTTABC IQ D"HELP. wconcencccccnecussnesesvaseseees' 
328 PRIN] TRB 10)" QUILT 0.06i6 60s 0ewenes eer Sead eueeee 
338 PRINT 'PRINTTABC 18>"WHICH FUNCTION DO YOU WISH TO EXECUTE"; : INPUTQ 
340 ONQG0T0410,510,616, 718,818,918, 1818, 1110,9999 
358 CLS: GOT0230: * HXKMENU ENDEXX ” 
410 CLS'INPUT"WHEN READY, HIT <ENTER> (TO CLOSE FILE TYPE 9999 FOR NAME >";x:CLS 
420 FORI@17025@'PRINT'PRINT"ENTER NAME (LAST FIRST. NO COMMAS PLEASE >" 
438 PRINT" THEN HIT THE <ENTER> KEY") ' INPUTN&C I> 
440 IFNS< I ="9999" THENP 121 'GOTO490 | 
445 PRINT"ENTER NAME OF REPRESENTITIVE (<ENTER> FOR NIL >" 
446 INPUTR&*< I) 
450 INPUT"ENTER STREET NUMBER & NAME <NO COMMAS >" ASC I> 
460 INPUT"ENTER SUBURB/CITY & POSTCODE" P8< I> 
470 IFFREC X <250G0T0490' IFFREC X 25@THENPRINT 'PRINT"FILE FULL" 
‘PRINT 
‘INPUT"PRESS <ENTER> TO RETURN TO MENU"; X 
'CLS 
'GOT0230 
488 NEXT 
490 PRINT"FILE CLOSED -- "'INPUT"TO SEE MENU, HIT <ENTER>")X:CLS:GOTO230 
918 CLS'FORI@1TOP1 ' PRINTN@< I >! PRINTR®< I >'PRINTAMC I >! PRINTP@C I>: PRINT! NEXT 
320 PRINT: INPUT"TO RETURN TO MENU, HIT <ENTER>"sX'CLS:GOTO23@ 
618 CLS'PRINT"ENTER THE NAME FOR THE LINE YOU WISH TO CHANGE (NO COMMAS >” 
628 INPUTN® 7 
638 FORI@1TOP1' IFN®@eNG«< I DGOTO672 | 
640 NEXT 
650 PRINT: PRINT"NAME NOT IN FILE ~- ":GOTO69@ 
66@ PRINT 
'PRINT"ENTER THE CORRECTED INFO. ' NAME, ADDRESS, PHONE -~" 
678 INPUTNSC( 19, RSC 1), ASC ID, PRCT) : 
660 PRINT'PRINT" THE FILE NOW READS: “ 
tPRINTN@C T D'PRINTRO&€ I > PRINTAS< I >: PRINTPS@< I >: PRINT 
690 INPUT"FOR ANOTHER CORRECTION, TYPE 1, OTHERWISE TYPE @"5% 
' IFX#1 THEN61QELSECLS ' GOTO230 
718 CLS: 
INPUT"PREPARE CASSETTE + PLAYER, WHEN READY HIT <ENTER>" sx 
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Mailist continued. 


720 PRINT: PRINT"COPYING..." 
738 PRINT #-1,P1 
746 FORI@i TOP: PRINT #-1,N@¢ 1), ROC I>, AS¢ 1, POC 1 >! NEXT 
798 PRINT'PRINT"COMPLETE -- NOTE TAPE LOCATION PLEASE -- " 
‘PRINT 
768 INPUT"TO RETURN TO MAIN MENU, HIT <ENTERD";X 
(CLS: GOT0238 
818 CLS: 
INPUT"PREPARE CASSETTE + RECORDER, WHEN READY HIT <ENTER>")X ‘PRINT 
820 PRINT" INPUTING..." 
838 INPUT#-1,P1 
840 FORI=1TOP1 + INPUT#-1,N8¢1>,R9C 1), ABC I>, P81): NEXT! PRINT 
850 INPUT" INPUTING OF DATA COMPLETE. TO SEE MENU PRESS <ENTERD": K' CLS: GOTO23 


91@ CLS:PRINT"FILE VERIFICATION: " ‘PRINT: PRINT 
920 INPUT"NAME FOR SEARCH") N®': PRINT 


938 FORI=1TOP1: IFN@=NS( I DTHENPRINT"FILE FOUND -~ "'GOTO96@ 
948 NEXT 
930 PRINT"FILE NOT FOUND -- ":INPUT"PRESS <ENTER> TO CONTINUE") 


®% CLS: GOTOZ30 
960 PRINT! PRINTNS< I >! PRINTR@<( I >: PRINTAS< I> PRINTPS@* I) 
tINPUT"OO YOU WANT THE NAME PRINTED CY/N)"; X® 
‘PRINT 
(TFX@2"Y" THENLPRINTN@< I LPRINTCHRS< 24)‘ LPRINTR@& I D 
t LPRINTCHRS&< 24): LPRINTAM®< I)! LPRINTCHR®< 24) 
‘LPRINTPS< I > 
976 INPUT"PRESS 1 TO CONTINUE, @ TO RETURN TO MENU") X 
‘IFXBLTHENSOBELSECLS 'GOT0230 


1005 CLS 
1010 CLS'PRINT"PRINTING..."' PRINT 
1020 FORI=iTOP1 'LPRINTN@®€< I>‘ LPRINTRS¢ IO} LPRINTAS®< I >:LPRINTPS&< I >‘ LPRINTCHRS< 194 9: 
NEXT 
1030 PRINT: PRINT"PRINTING COMPLETE. ": PRINT 
1058 INPUT"TO SEE MENU HIT <ENTERD>")X 
(CLS! GOTO23@ 
1118 CLS'PRINTTABS 30); "HELP" ‘PRINT: PRINT 
1128 PRINT"CREATE ADDRESS FILE(S): 


THIS PROCEDURE ALLOWS THE USER TO CREATE THE FILES TO BE USED 
IN STORING THE NAMES, ADDRESSES, AND PHONE NUMBERS. " 

1130 PRINT 

114@ PRINT"VIEW ADDRESS FILECS): 


THIS PROCEDURE ALLOWS THE USER TO SEE THE FILES EITHER JUST 
CREATED, OR JUST TRANSFERED INTO MEMORY FROM TAPE. " 
115@ PRINT: INPUT"TO CONTINUE, PRESS 1. ELSE PRESS @ TO RETURN 
TO MAIN MENU" ; x 

‘ [FXSQTHENCLS : GOT0238 

‘ [FX=1 THENGOTO1160 
1160 CLS: PRINT"UPDATE ADDRESS FILES): 


THIS PROCEDURE ALLOWS THE USER TO CHANGE THE FILES JUST CREA- 
TED ¢FOR TYPO’S), OR FROM TAPE, TO MAKE CHANGES TO PHONE NUM- 
BERS OR ADDRESSECS> AS NEEDED. " 

1178 PRINT 


1180 PRINT"SAVYE ADDRESS FILES): 


THIS PROCEDURE ALLOWS THE USER TO SAVE THE FILECS> JUST CREATED 
OR THE CHANGES JUST MADE." 


PRICELESS PROGRAMS 


TRS-80 i continued. 


1190 PRINT 
1208 PRINT: INPUT"TO CONTINUE, PRESS 1. ELSE PRESS @ TO RETURN 
TO MAIN MENU": 

t IFX*QTHENCLS ' GOTO230 

: TFXS1THENI210 
1210 CLS'PRINT"CALL ADDRESS FILECS): 
THIS PROCEDURE ALLOWS THE USER TO CALL THE ADDRESS FILECS) FROM 
CASSETTE-TAPE DATA FILES." 
1220 PRINT 
1230 PRINT"VERIFY ADDRESS FILECS): 
THIS PROCEDURE ALLOWS THE USER TO VERIFY THE ADDRESS FILECS>. 
THIS IS USED WHEN THE USER WISHES TO SEARCH FOR A PARTICULAR 
NAME, ADDRESS AND PHONE NUMBER. " 
124@ PRINT: INPUT"TO CONTINUE, PRESS 1, ELSE PRESS @ TO RETURN 
TO MAIN MENU"; X 

‘ IFX®QOTHENCLS : GOTO236 

| [FX21 THENGOTO1258 
1258 CLS'PRINT"PRINT ADDRESS FILECS): 


THIS FUNCTION ALLOWS THE USER TO GET A HARD COPY OF THE FILES 
EITHER ON PRINTER PAPER, OR STICKY LABELS FOR ENVELOPES. " 
1266 PRINT - 

1278 PRINT"HELP: 


THIS FUNCTION. " 
1280 PRINT 
1290 PRINT" QUIT: 


END THE PROGRAM. " 
1308 PRINT 
131@ INPUT"TO RETURN TO MENU. PRESS <ENTER>" ix 
CLS 

'GOTO236 
99399 CLS: 

‘POKE 16396. 201 

‘END 


Australia's Top 
Motorcycle Monthly 


ON SALE AT YOUR NEWSAGENT EVERY MONTH 
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TRS-80 


MATH LAUNCH 


Math Launch is an educational 
game featuring high-res graphics, 
music and sound. The aim of the 
game is to build a rocket and 
launch it by answering multi- 
plication questions. There is also 
a choice of three skill levels. 
John Pospisil 
Bulli NSW 
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BS 
? 
18 
006 
1900 
1018 
1015 
1820 
18328 
104 
1850 
1060 
1078 
1080 
1085 
1086 
1887 
1098 
1095 
1100 
1118 
1120 
1138 
1148 
1158 
1168 
1508 
1581 
1562 
1383 
1504 
13@5 
150? 
1518 
1528 
1538 
1348 
1545 
1546 
15598 
1555 
1588 
1598 
1600 
1618 
1628 
1632 
1648 
165@ 
1860 
1885 
1810 
1826 
1832 
1848 
1858 


1861 
1862 


1870 


CLS 
CHAR63, B888B803CB03C 
GOTO1882 
NEXT 
GOSUBSB8a82 
GOSUB9820 
CLS 
PRINT"WHICH SKILL LEVEL?" 
PRINT 
PRINT" 
PRINT 
PRINT" 
PRINT 
PRINT" (€C) TOUGH" 
FORN=1T0198 
PRINT 
NEXT 
IFPEEK(29)=1THEN1 100 
GOTO1992a 
IFPEEK(25)=12THENA=7 
IFPEEK(25)=6THENA=15 
IFPEEK(18)=72THENA=4@ 
FORN=1T028 
PRINT 
NEXT 
IFA=Q@THEN1 022 
REM SREEN 
CHARI 8@, FFC3AS9999A5C3FF 
FORN=22T023 
FORM=14T024 
PLOTN,M,; 182 
NEXT 
NEXT 
FORN=25T027 
PLOTN, 24, 282 
NEXT 
FORN=18T02@ 
PLOTN, 24, 252 
NEXT 
PLOT19, 22, 25@ 
PLOT19, 23,251 
POKE219, 208 
POKE218, 228 
PRINT"LET’S START BUILDING 2" 
FORN=1 T0250 
NEXT 
POKE218, 228 
PRINT" 
U=0 
REM QUESTION“ANSWER 
IFU=11THENGOSUB43@a 
B=RND(A) 
C=RNDCAtS) 
POKE2193, 208 
POKE218, 238 
PRINTB3"  "35C3 
INPUTT$ 
D=VAL(T$) 
IFD=CXBTHEN20@0 


CA) VERY EASY" 


(BJ) INTERMEDIATE" 


1888 
1890 
1928 
1912 
191] 
1912 
1913 
1914 
1915 
1916 
191? 
1928 
1939 
195e 
1962 
1965 
1970 
1975 
1982 
1985 
1986 
1987 
1988 
1998 
1995 
2000 
2085 
2818 
2820 
2030 
2840 
2580 
2518 
2520 
2530 
2540 
3000 
3018 
3020 
3830 
3182 
3118 
3120 
3138 
3228 
3218 
3220 
3238 
3302 
3312 
3320 
3330 
3420 
3418 
3420 
3438 
3508 
3512 
3520 


SOUND2 54,554,1454 
SOUND2 515,551,1431 
SOUND2 54,53;4,14,4 
SOUND2 53,;9333,173;3 
SOUND2 515,73;1,16351 
SOUND2 53,73;3,1653 
SOUND2 53,5;3,1433 
SOUND2 315,451;,1231 
SOUND2 57,537,145;27 
FORN=13T023 
FORM=25TO2?7 
PLOTMN,N, 32 

NEXT 

SOUNDN 32 

NEXT 

U= 

POKE219,2908 
POKE218, 228 
PRINT'AH WELL,LETS START AGAIN" 
FORN=17T0300 

NEXT 

GOSUBS8828 
GOTO180@ 

REM 
IFU=11THEN4100 
GOSUB3080+Ux120 
GOSUBS@8@ 

U=U+ } 

GOTO1 888 
FORN=170256 
POKE4098,N 
FORN=1T020 

NEXT 

NEXT 

PLOT25, 23, 96 
PLOT26, 23,97 
PLOT 273 235 3¢ 
RETURN 
PLOT25; 22, 164 
PLOIZOy 223-165 
PLOT27, 22, 106 

RE TURN 

PLOT25, 21,107 
PLOT26,21,107 
PLOT27,21,1@7 

RE TURN 
PLOT25, 20, 188 
PLOT26, 20,109 
PLOT27, 20, 108 
RETURN 
PLOT25; 19, 108 
PLOT26,19,11@2 
PLOT27,193, 198 
RETURN 
PLOT 255 16a 113 
PLOT Zs 188 bl 2 
PLOTS? AS e113 


met 


T 


RS-80 


RETURN 
PLOTZ5, 173193". 
PLOT26, 17,114 
PLOn27 4.25 tis 
RE TURN 
PLOTZ25; 16,111 
PLOT2?,16,111 
PLOT26, 16,111 
RETURN 
PLOT25, 15,122 
PLOT26, 15,198 
PUOT273155.121 
RETURN 
P_OT25, 14,122 
PLOT26, 14,124 
PLOT27,14,123 
RETURN 

END 

PLOT25, 13,128 
PLOT26, 13,129 
PLOT2?,13,130 
RETURN 
FORN=18T02@ 
PLOTN, 24, 32 
NEXT 
PLOT19, 23, 32 
PLOT19, 22, 32 
FORM=13T024 
PLOT22,M, 32 
PLOT23,M, 32 
NEXTM 
GOSUBS222 
COLOR26, 7,5 
CHAR2Q@, FF 2F2F 7762 
POKE219, 219 


POKE218, 226 


POKE4998; 2 
FORN=1TO24 

PRINT 

NEXT 

POKE219, 209 
POKE218, 68 

CHAR2 , C@ABSIB4F 3GBCO3 
CHAR3 ; @8@QQ@FG1G10F@ 
CHAR4 , @35@9F 28C3@Ca@ 
CHARS , @@@@BQRF 8O8RF 
PRINT" WELL DONE" 
FORN=2TO1@ 

POKE4898,N 

FORM=1T020 

NEXT 

NEXT 

SOUND 32 

GOTO6ER2 

END 

FORN=1T02@ 
POKE218; 128 
PRINT'DATA FOR LAUNCH" 
POKE218;.122 


4330 

4349 

4350 

5000 

5812 

5020 

5032 

6800 

6085 

6812 

6@15 
6820 
6825 
6830 
6040 
6852 
6862 
6872 
6@8a 
6298 
612@ 
6112 
6120 
880a 
8212 
8820 
8030 
8042 
8999 
99200 
9201 

9902 
9883 
9904 
9885 
9012 
9822 
9830 


PRICELESS PROGRAMS 


PRINT" 

NEXT 

RETURN 

POKE219, 208 
POKE218, 228 

PRINT" 

RETURN 

SOUND26 33 
SOUND21 ;2 
SOUND21 31 
SOUND23 33 
SOUND21 33 

SOUND! 53 

SOUNDS 33,1933,2533 
SOUND2 33,1833,2633 
FORN=1 T0208 

NEXT 


PRINT'PRESS ANY KEY FOR NEW GAME" 


FORN=1T01@ 

PRINT 

NEXT 

IFPEEK(C29)=1THENRUN 
GOTO61190 

FORN=1TO255 

POKE4098,;N 

FORM=1T058 

NEXT 

NEXT 

END 
CHARS6, FFOFOF IF IF 3F3F AF 
CHARS? , GFF SAASFF 
CHAR2Z5@, @1010103030E 1ESE 
CHARZ51 ; 3E76F BB@6G6GF BF OF 
CHAR] , 808142241824428)1 
CHARZS2,-FFRFEFREEPPFERFE 
CHARS, FFFFFFFFREFFEFEFE 
CHARSS, FFFOFOFSFSFCFCFE 
CHAR 104, FF @383030303 


CHAR1BS,FFC3C3C3C3C3 
CHAR 1@6,FFC@C@CB@CECe 
CHAR1@7, @BQ@A@@FFFFFFFFFF 
CHAR! @8, 22 

CHAR!89, 9@003C3C18181818 
CHAR11@, 1800001C201820438 
CHAR1 12, 2424800024242424 
CHAR113, 80 

CHAR1 14, @90000000018243C 
CHAR] 11,FQFQ@FOFOQFOFOFOF 
CHAR1 20, @F@FIFIF3F3F7FFF 
CHAR121,FQ@FQFSFEFCFCFEFF 


CHAR122, OF Q@FQ@FOFOFGFQFOQF. 


CHAR123, FOF OF OF @FOFQF OF 
CHAR124, FFC3C3C3FFFFFFFF 


CHAR] 28; GB@@BBGOBB303BF OF 


CHAR] 29, @O@3C7EFFFFFFFFFF 
CHAR1 30, GBBBBEBOCBCBFOFS 
CHAR2Q0, @@@QFFASSAFF 


RETURN 
COLOR@, 13 
COLOR13;2,;5 


COLOR14,2,16 
COLOR15,2,15 
COLOR16,16,5 
COLOR17,2,5 
COLOR26,2,5 
COLOR32,11,5 
FORN=61012 
COLORN; 2;5 
NEXT 
COLOR1;2,5 
COLORS, 2,5 
COLOR23,2;5 
RETURN 
POKE4@98, 208 
POKE4@92, 2 
POKE4@98, 207 


Apple Il & 


CRICKET 


In this game you field while the 
computer bats. The ball is hit 
from a random end in a random 
direction and you move around 
the screen, using the keyboard, 
to stop the ball. 

If you find the game too easy, 
change the values in lines 165- 
190 from 2 and -2 to 3 and -3 (or 
even 4). Don’t change the D val- 
ues in line 170. 

Type carefully because mis- 
takes will send the program to 
the error handling routine and it 
will be hard to find the error. If 
you think you have an error, use 
the TRACE command and run the 
program. NO TRACE turns the 
TRACE off. 

Good luck and have fun. 

Richard de Meester 
Airport West, Vic 


5 
6 
10 
15 


20 


25 


26 
30 


mh 


35 


40 


45 


65 


710 


TO 


718 


80 


ONERR 
TEXT 
L$ = 


xX = 


V= ii: 


V 


PRINT "“ 


GOTO 1100 
HOME 

"CRICKET?!" 

HTAB 12: VTAB 15: SPEED= 
FOR Z = 1 TO 9:2S = 
Lsy 2,1) s TOR Zz = 
PRINT CHRS 
(ZZ) < > 
O08: NEXT 
PEEK ( - 16336) ~- PEEK ( 

- 16336) - X = PEEK ( - 16 
336) - PEEK ( - 160336) - X = 
PEEK ( - 16336) - PEEK ( - 
16336) - X = PEEK ( - 16336 
) - PEEK ( - 16336): NEXT Z 
: SPEED= 255: PRINT 

FOR I = I TO 500: NEXT : HOME 
:LS$ = "BY RICHARD DE MEESTER 
, AIRPORT WEST." 

GOSUB 30: GOTO 55 
POKE 34,V:Z2Z = LEN (LS) 
SPEED= 160: VTAB 23 
FOR Z = 1 TO LEN (LS) / 2: 
ie PRINT -MIDS. Ci S¢227 4° 1. = 
Z,l)3: HTAB 40: PRINT MIDS 

(L$,22 + Z,1)37: NEXT 

SPEFN= 65: FOR Z2 = 1 TO 23 - 
V - 22: PRINT : NEXT SPEED= 
255 

FOR Z2 = 1 TO 22: VTAB V: HTAB 
1: PRINT MIDS (LS,2Z + 1 - 
Z2,2);: HTAB 41 - Z: PRINT 
(L$,Z22 + 1,2)3: VTAB 24: 

NEXT 

FOR Z = 1 TO 20 - 
HTAB Z: 
$,22)3: 
RIGHTS 

SPEED= 


240: 
MIDS ( 
32: TO: 255% 
(ZZ)3: IF CHRS 
ZS THEN CALL sg 


/ 23 


HTAB 


MIDS 
PRINT 


22: VTAB V: 
PRINT “" "3; LEFTS (CL 

HTAB 41 - ZZ - @: PRINT 
(L$,22Z)3:" “3: NEXT 

255: POKE 34,0: RETURN 


= 3:L$S = 
N THIS 
PRINT 
OU ARE 


"NO COPYRIGHT 
GAME!": GOSUB 30 
PRINT PRINT " Y 
FIELDING AT A GAME OF 

“: PRINT "CRICKET. YO 
U ARE A BOX AND YOU HAVE TO 
": PRINT "MOVE IT AROUND AND 

STOP THE BALL. i 

PRINT " KEYS ARE: U_ I 
O"™: PRINT PRINT : PRINT " 

J L": PRINT 

PRINT " 

PRINT : 


<C> O 


: PRINT 
M ; ae: 
: PRINT 


PRINT 


THE FIRST ONE TO 
100 WINS": VTAB 24: PRINT “ 
PRESS ANY KEY";: GET BS$ 

HOME PRINT " THE EARLIE 
R YOU STOP THE BALL THE bi 
"HIGHER SCORE YOU WILL GET F 
OR THE STOP: -* 

PRINT “THE BALL WILL BE HIT F 
ROM A RANDOM END "Ss PRINT ™ 
IN A RANDOM DIRECTION. ": PRINT 

PRINT PRINT 

PRINT "“ IF YOU ARE TOO CL 
OSE YOU WILL BE "; PRINT " 
ASKED TO STAND FURTHER BACK. 

"; PRINT PRINT PRINT : PRINT 


PRINT 


ANY KEY TO START 


" PRESS 
“s: GET BS 

95 DIM BX(200): DIM BY(40) 

98 TSC = O:PSC = 0 

100 GOSUB 1000: GOSUB 1020 

110 GOSUB 800 

120 R = 2: GOSUB 1050 

130 BE = X:R = 7: GOSUB 1050:D = X 

140 GOSUB 800 

150 IF E = 1 THEN E = 125 

160 IF E = 2 THEN E = 155 

165 IF D = 1 THEN DX = - 2:DY = 

Cae. 

170 IF D = 2 THEN DX = O:DY = - 
2 

175 IF D = 3 THEN DX = 2:DY = - 
2 

180 IF D = 4 THEN DX 2:DY = 2 

185 IF D = 5 THEN DX = O:DY = 2 

190 IF D = 6 THEN DX - 2:DY = 
2 

195 IF D = 7 AND E = 125 THEN DY 

= 0:DX = 4 
200 IF D = 7 AND E = 155 THEN DY 
= 0:DX = - 4 

205  GOSUB 800 

206 IF XP >» 50 AND XP <¢ 200 AND 
YP < 120 AND YP >» 10 THEN HOME 
: VTAB 23: PRINT “FURTHER BA 
CK, PLEASE!": GOTO 205 

210 HOME : VTAB 23: PRINT “COMPU 
TER SCORE: ";TSC;" YOUR SC 
ORE: “3PSC 

215 BX(1) = E + DX:BY(1) = 80 + D 
Y 

220 HPLOT E,80 TO BX(1),BY(1) 

222 G = PEEK ( - 16336) * PEEK 
( - 16336) 

225: fF 2 

230 GOSUB 800:J = I - 1:BY(I) = 
BY(J) + DY:BX(I) = BX(J) + D 
X 

235 HPLOT BX(J),BY(J) TO BX(I),B 
Y(1I) 3 

240 IF XP = < BX(I) AND XP + 29 

> = BX(I) AND YP = < BY(I 
) AND YP + 29 > = BY(I) THEN 
242 
241 I = I + 1: GOTO 230 
242 IF I < 15 THEN PSC = PSC + 4 
GOTO 245 

243 IF I < 25 THEN PSC = PSC + 3 
:TSC = TSC + 1: GOTO 245 

244 PSC = PSC + 1:TSC = TSC + 2 

245 IF TSC >» = 100 OR PSC > = 
100 THEN 300 

246 HOME : VTAB 23: PRINT “COMPU 
TER SCORE: ";TSC;" YOUR SC 
ORE: "3;sPSC 

247 GOTO 100 

300 TEXT HOME : IF PSC > TSC THEN 

PRINT "YOU WON, “;PSC;" TO 
"sTSC pi" 

305 IF TSC >» PSC THEN PRINT "TH 
EY BEAT YOU, ";TSC;" TO "“;PS 
Casta. a 

310 IF TSC = PSC THEN PRINT “IT 

WAS A DRAW, “";TSC;" ALL!" 


en eee _ — ese 
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870 


g80 


PRICELESS PROGRAMS. 


PRINT PRINT PRINT "AGAIN YD = 10: GOTO 920 1020 4HPLOT XP,YP TO XP + 29,YP TO 
CY/NO?"2e GET AS: IF AS = * 890 IF MS = "," THEN XD = O:YD = XP + 29,YP + 29 TO XP,YP + 2 
N" THEN PRINT PRINT PRINT 10: GOTO 920 9 TO XP,YP: RETURN 
“BYES Ts. BND 900 IF MS = "," THEN XD = 10:YD = 1050 X = RND (1) * R) + 1 
IF AS = "Y" THEN 98 10: GOTO 920 1060 RETURN 
GOTO 315 910 RETURN : 1100 HOME 
POKE 34,V:2Z2 = LEN (L$) / 2 920 HCOLOR= 0: GOSUB 1020 1104 VTAB 21: PRINT "“FFFF OO U 
SPEED= 160: VTAB 23 930 XP = XP +-XD:YP = YP + YD U RRR " 
IF PEEK ( - 16384) > 127 THEN 931 IF XP < O THEN XP = O 1105 PRINT Oo OU U R_R 
820 932 IF XP >» 250 THEN XP = 250 i 
RETURN 933 IF YP >» 130 THEN YP = 130 1110 PRINT "FFF O OU U RRR" 
GET MS 934 IF YP < 0 THEN YP = O dee 5 PRINT ore) UU R R 
IF M$ = "U" THEN XD = - 10: 940 HCOLOR= 7: GOSUB 1020 oper 
YD = - 10: GOTO 920 945 G = PEEK ( - 16336) + =PEEK 1116 FOR F 1 TO 250:G = PEEK 
IF MS = "I" THEN XD = O0:YD = ( - 16336) ( - 16336): NEXT 
- 10: GOTO 920 1117 TSC = TSC + 4: IF TSC = > 1 
IF MS = “O" THEN XD = 10:YD = 950 IF XP ¢< 170 AND XP > 80 AND OO THEN 300 
- 10: GOTO 920 YP < 100 AND YP >» 30 THEN GOSUB 1118 HOME VTAB 23: PRINT “COMP 
IF MS = "J" THEN XD = - 10 1010 UTER SCORE: "3;TSC;" ylouR § 
YD = 0: GOTO 920 960 RETURN CORE: ";PSC 
IF MS = "L" THEN XD = 10:YD = 1000 HGR HCOLOR= 7 1220: «GOTO 1006 
O: GOTO 920 1010 HPLOT 120,75 TO 120,84 TO 1 1244 psc = PSC + 2:TS8C = TSC + 2 
IF MS = "M" THEN XD = - 10 59,84 TO 159,75 TO 120,75: RETURN JPR#O0 


Complete: compatibility 
Complete-:software 
Complete:3 year warranty 
Complete: training programme 
Complete: financing _ 


Complete: customer hot line 
Complete: accessories 


ERICSSON 


is 


PERSONAL 
COMPUTERS 


The 
Completer. 


(?) THINK COMPUTERS 


602 Maroondah Highway, Mitcham, Victoria 3132. @& (03) 873 1122 


EDD is the most powerful disk duplicator 


available for your Apple '™ computer. 
Unlike the Copycards, which only copy 
single load programs, EDD backs up 
your entire disk. EDD can back up more 
protected software than all other copy 
programs or Copycards put together. 
Since EDD is automatic, you will no 
longer have to change parameters to 
duplicate most disks, although every 
parameter is fully documented in our 
extensive manual. We also provide 
updated EDD program lists. 


ESSENTIAL DATA DUPLICATOR /II'™ 


plus $2.00 postage & packaging 


EDD runs on Appie 
I, H+ (including 
most compatibles), 


Uc, tle and Til (in 


emulation mode), 
with one or two 
3.3 disk drives. 


e EDD rarely needs parameter changing. 

e Automatically finds the beginning of each track. 

@ Unlike any of the Copycards; EDD backs up the 
entire disk — not just what is in memory. 

e Accurately finds “auto-sync” bytes and their lengths. 


@ Can copy % and % tracks. 


To order your copy send Cheque or Money Order 


to: 


UTILICO SOFTWARE 


Order by phone 


83 Hall Street, Bondi Beach, NSW 2026 


Telephone: (02) 30-2105 
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